第一步设计用户界面如下：
-width="100">
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运行。
程序每3秒中红绿灯就转换一次，当红灯时，程序中的小孩为静止的，当绿灯时，小孩就不停的走了起来。即简单又形象，赶快用它来教你家中的小朋友来认识红绿灯吧。
奚越XXIYYUE@SINA.COM->
