Private Sub Command1_Click()
Dim A As Integer
Dim B As Integer
Dim C As Integer
A = Text1.Text
B = Text2.Text
C = Text3.Text
If A > B Then
Max = A
Else: Max = B
End If
IfC > Max Then
Print C
Else: Print Max
EndIf
Private Sub Command1_Click()
Dim A As Integer
Dim B As Integer
Dim C As Integer
A = Text1.Text
B = Text2.Text
C = Text3.Text
If A > B Then
Max = A
Else: Max = B
End If
IfC > Max Then
Print C
Else: Print Max
EndIf