VB红绿灯程序

VB红绿灯演示PrivateSubCommand1_Click()While(1)Shapel.FillColor=RGB(255,0,0)Shape2.FillColor=RGB(0,0,0)Shape3.FillColor=RGB(0,0,0)Shape4.FillColor=RGB(0,0,0)Shape5.FillColor=RGB(0,255,0)Shape6.FillColor=RGB(0,0,0)Shape7.FillColor=RGB(0,0,0)Shape8.FillColor=RGB(0,0,0)Shape9.FillColor=RGB(255,0,0)Shape10.FillColor=RGB(0,0,0)Shape11.FillColor=RGB(0,255,0)Shape12.FillColor=RGB(0,0,0)Fori=0To10000000DoEventsNextiShape1.FillColor=RGB(255,0,0)Shape2.FillColor=RGB(0,0,0)Shape3.FillColor=RGB(0,0,0)Shape4.FillColor=RGB(255,255,0)Shape5.FillColor=RGB(0,0,0)Shape6.FillColor=RGB(0,0,0)Shape7.FillColor=RGB(0,0,0)Shape8.FillColor=RGB(0,0,0)Shape9.FillColor=RGB(255,0,0)Shape10.FillColor=RGB(255,255,0)Shape11.FillColor=RGB(0,0,0)Shape12.FillColor=RGB(0,0,0)Fori=0To3000000DoEventsNextiShape1.FillColor=RGB(0,0,0)Shape2.FillColor=RGB(0,255,0)Shape3.FillColor=RGB(0,0,0)Shape4.FillColor=RGB(0,0,0)Shape5.FillColor=RGB(0,0,0)Shape6.FillColor=RGB(255,0,0)Shape7.FillColor=RGB(0,0,0)Shape8.FillColor=RGB(O,255,0)Shape9.FillColor=RGB(0,0,0)ShapelO.FillColor=RGB(0,0,0)Shapell.FillColor=RGB(0,0,0)Shape12.FillColor=RGB(255,0,0)Fori=0To10000000DoEventsNextiShape1.FillColor=RGB(0,0,0)Shape2.FillColor=RGB(0,0,0)Shape3.FillColor=RGB(255,255,0)Shape4.FillColor=RGB(0,0,0)Shape5.FillColor=RGB(0,0,0)Shape6.FillColor=RGB(255,0,0)Shape7.FillColor=RGB(255,255,0)Shape8.FillColor=RGB(0,0,0)Shape9.FillColor=RGB(0,0,0)Shape10.FillColor=RGB(0,0,0)Shape11.FillColor=RGB(0,0,0)Shape12.FillColor=RGB(255,0,0)Fori=0To3000000DoEventsNextiWendEndSub咲***************************************************************************************上图即为shape控件位置