Private Sub Command1_Click()
Dim Temp As String
Temp = Label3.Caption
Label3.Caption = Label2.Caption
Label2.Caption = Label1.Caption
Label1.Caption = Temp
End Sub
Private Sub Form_Initialize()
Label1.Caption = "A"
Label2.Caption = "B"
Label3.Caption = "C"
End Sub