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秒中紅綠燈就轉換一次，當紅燈時，程序中的小孩為靜止的，當綠燈時，小孩就不停的走了起來。即簡單又形象，趕快用它來教你家中的小朋友來認識紅綠燈吧。
奚越[email protected]>
