怎么用VB实现小车移动？ 现场轨道上有一小车，移动距离0-10米，对应屏幕上大约十厘米，怎么让画面

创建一个高唯Timer控件，脊念桐取名Timer1，然后加入以下代码

Private Sub Form_Load()

Timer1.Interval = 10                   '设置小车每10毫秒移动一次

End Sub

Private Sub Timer1_Timer()

小车.Left = 小车.Left + 50              '小车每次移动都往右移50缇

End Sub

启动程序，就可樱坦以了

如果不懂，可以追问

Private Sub Form_Load()

Me.ScaleMode = 3

End Sub

Private Sub Form_Resize()

VScroll1.Max = Me.ScaleHeight

HScroll1.Max = Me.ScaleWidth

End Sub

Private Sub HScroll1_Change()

Picture1.Move HScroll1.Value, VScroll1.Value

End Sub

Private Sub VScroll1_Change()

HScroll1_Change

End Sub

Picture1 里是你的汽车图片 也可以用 带宴伏 image 控件蠢携祥雹

---