教小朋友认识红绿灯

timer1的interval属性设为3000，用来控制红绿灯转换。
　　
　　timer2的interval属性设为200，用来控制小孩走动。
　　
　　shape1的shape属性为3-circle
　　
　　fillcolor为红色
　　
　　fillstyle为0-solid
　　
　　image2---image5：用来存放四幅小孩的图片，其visible属性为false。
　　
　　image1：用来显示动态的小孩。
　　
　　PrivateSubForm_Load()
　　
　　Shape1.FillColor=RGB(255,0,0)
　　
　　EndSub
　　
　　PrivateSubTimer1_Timer()‘用来控制红绿灯转换
　　
　　IfShape1.FillColor=RGB(255,0,0)Then
　　
　　Shape1.FillColor=RGB(0,255,0)
　　
　　Timer2.Enabled=True
　　
　　Else
　　
　　Shape1.FillColor=RGB(255,0,0)
　　
　　Timer2.Enabled=False
　　
　　EndIf
　　
　　EndSub
　　
　　PrivateSubTimer2_Timer()‘用来控制小孩走动
　　
　　StaticnAsInteger
　　
　　n=n 1
　　
　　Ifn=1Then
　　
　　Image1.Picture=Image2.Picture
　　
　　ElseIfn=2Then
　　
　　Image1.Picture=Image3.Picture
　　
　　ElseIfn=3Then
　　
　　Image1.Picture=Image4.Picture
　　
　　ElseIfn=4Then
　　
　　Image1.Picture=Image5.Picture
　　
　　n=0
　　
　　EndIf
　　
　　EndSub
　　
　　第二步，单击F5运行。