神马品牌网亲润护肤品官网:帮我写个报警彩灯程序
来源：百度文库 编辑：神马品牌网 时间：2024/05/05 15:38:19
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