Private Sub C1_Click()
If Shape1.Visible = True Then
Shape1.Visible = False
Shape2.Visible = True
ElseIf Shape2.Visible = True Then
Shape2.Visible = False
Shape3.Visible = True
Else
Shape3.Visible = False
Shape1.Visible = True
End If
End Sub
Private Sub C2_Click()
End
End Sub
Private Sub Form_Load()
Shape2.Visible = False
Shape3.Visible = False
End Sub
红绿灯设置