很急，有谁能帮我一个vb小车运动可视化过程的问题，在线等。谢谢
实现过程：
我要实现的是两辆小车防碰撞的过程 。 开始两小车一前一后运动。按开始按钮后， 前面的小车慢后面的小车快。当两辆小车的距离小于某一个值时，后面的小车减慢速度，防止和前面的小车碰撞。我编写好代码，但是结果是 两辆小车运行时只实现判断后的过程，前面一快一慢 ，突然变速的过程没有。我该怎么改代码。请高手指导，真的很感谢。
我编写的代码是：（image1是后面的车 image2是前面的车。用了两个事件控件分别控制）
Dim s As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
Timer2.Enabled = True
s = Image2.Left - Image1.Left
If s <= 10000 Then
Timer1.Interval = 100
End If
End Sub
Private Sub Command2_Click()
Timer1.Enabled = Flase
Timer2.Enabled = Flase
End Sub
Private Sub Form_Load()
Timer1.Interval = 15
Timer1.Enabled = Flase
Timer2.Interval = 100
Timer2.Enabled = Flase
End Sub
Private Sub Timer1_Timer()
Image1.Left = Image1.Left + 10
End Sub
Private Sub Timer2_Timer()
Image2.Left = Image2.Left + 10
End Sub
在线等。我该怎么改代码？
[解决办法]
这种动画你用 Flash 做不简单吗？为什么要用VB来写。
通常如果真要模拟碰撞，是要考虑很多东西的，如重力、坡度、速度、阻力、风速、材料、碰撞力...
用很多的的参数对应很多学科的数学计算，不是单靠写个小程序就能做的。
如果不是这样，做出来的无非是个按照人计划的动画而已，只是这样还不如用 Flash 做动画，然后
VB 调用 Flash 控件来播放简单。如果想用程序实现动画，你的这种方式也不专业，因为画面质量
和效率很低，对动画类程序开发没有任何好处。
[解决办法]
毕业设计还是作业？
