7,785
社区成员




Private Sub Command1_Click()
Static a As Integer
If a = 0 Then
Shape1.FillColor = vbRed
ElseIf a = 1 Then
Shape1.FillColor = vbGreen
ElseIf a = 2 Then
Shape1.FillColor = vbYellow
a = a - 3
End If
a = a + 1
End Sub
Private Sub Form_Load()
Shape1.FillColor = vbRed
Shape1.FillStyle = 0
End Sub