用vb教小朋友认识红绿灯

笔者在教小朋友认识红绿灯时，曾用VB编过一个小程序来说明红绿灯的作用，当红灯时程序中的小孩为静止的，当为绿灯时小孩就不停的走了起来。用后感觉效果不错，家中有小朋友的赶快来试一下吧。

第一步设计用户界面如下：

timer1的interval属性设为3000，用来控制红绿灯转换。

timer2的interval属性设为200，用来控制小孩走动。

shape1的shape属性为3-circle

fillcolor为红色

fillstyle为0-solid

image2---image5：用来存放四幅小孩的图片，其visible属性为false。

image1：用来显示动态的小孩。

Private Sub Form_Load()

Shape1.FillColor = RGB(255, 0, 0)

End Sub