Private Sub Command1_Click()
Static i As Integer
i = i + 1
'Print i
t = i Mod 3
Select Case t
Case 0
Command1.Caption = "C"
Case 1
Command1.Caption = "A"
Case 2
Command1.Caption = "B"
End Select
If i = 9 Then i = 0
End Su
Private Sub Command1_Click()
Static i As Integer
i = i + 1
'Print i
t = i Mod 3
Select Case t
Case 0
Command1.Caption = "C"
Case 1
Command1.Caption = "A"
Case 2
Command1.Caption = "B"
End Select
If i = 9 Then i = 0
End Su