7,763
社区成员
发帖
与我相关
我的任务
分享
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