Private Sub Command1_Click()
Dim x, y, t As Integer
x = 10
y = 30
If x < y Then
t =
x =
y =
End If
Label1.Caption = Str(x)
Label2.Caption = Str(y)
End Sub