Private Sub Form_Load()
Timer1.Interval = 5000
Shape1.BorderColor = vbBlack
Shape1.BorderWidth = 3
Shape1.FillStyle = 0
Shape1.FillColor = vbGreen
Shape1.Shape = 3
Shape2.BorderColor = vbBlack
Shape2.BorderWidth = 3
Shape2.FillStyle = 0
Shape2.FillColor = vbRed
Shape2.Shape = 3
End Sub
Private Sub Timer1_Timer()
Static f As Boolean
If f Then
Shape1.FillColor = vbGreen
Shape2.FillColor = vbRed
Else
Shape1.FillColor = vbRed
Shape2.FillColor = vbGreen
End If
f = Not f
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024