模拟小车

Private Sub Form_Load()

  Timer1.Interval = 10                

'1s100次

End Sub

---

Private Sub Command1_Click()

  If Label1.BackColor = RGB(0, 255, 0) Then

  Label1.BackColor = RGB(255, 0, 0)

  Else

  Label1.BackColor = RGB(0, 255, 0)                  

 '设置Command1控件切换颜色

  End If

  End Sub

---

Private Sub Timer1_Timer()        

 'imgae才可以调节图片大小，我们用image代替picture

  If (Label1.BackColor = RGB(0, 255, 0) Or Image1.Left > Label1.Left + Label1.Width) Or Image1.Left + Image1.Width < Label1.Left Then

  Image1.Left = Image1.Left - 50  

'当绿灯且图片左边长度大于控件左边长度（包括自身），或者控件左边长度大于图片左边长度（包括自身）时，图片左移50格

  If Image1.Left + Image1.Width < 0 Then Image1.Left = Form1.Width          

'当图片左边长度小于零，图片回到窗体的最右边

  End If

End Sub

代码 效果图