杭州交通信息网黑暗过后是黎明的句子:帮我写个报警彩灯程序
来源：百度文库 编辑：杭州交通信息网 时间：2024/06/01 14:52:23
Dim p As Boolean
Private Sub Form_Load()
p = 1
End Sub
Private Sub Timer1_Timer()
Shape1.BackColor = RGB(Switch(p, 255, Not p, 0), Switch(p, 0, Not p, 255), 0)
Shape1.BorderColor = RGB(Switch(p, 255, Not p, 0), Switch(p, 0, Not p, 255), 0)
Shape2.BorderColor = RGB(Switch(p, 0, Not p, 255), Switch(p, 255, Not p, 0), 0)
Shape2.BackColor = RGB(Switch(p, 0, Not p, 255), Switch(p, 255, Not p, 0), 0)
p = Not p
End Sub