•Private
Sub btnFindLarger_Click(...) _
• Handles btnFindLarger.Click
• Dim num1, num2 As Double
• num1 = CDbl(txtFirstNum.Text)
• num2 = CDbl(txtSecondNum.Text)
• If (num1 > num2) Then
• txtResult.Text = "Larger number is
" & num1
• ElseIf (num2 > num1) Then
• txtResult.Text = "Larger number is
" & num2
• Else
• txtResult.Text = "The two are
equal."
• End If
•End Sub