Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
If a > b Then
Label3.Caption = a
Else
Label3.Caption = b
End If
End Sub
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
If a > b Then
Label3.Caption = a
Else
Label3.Caption = b
End If
End Sub