怎样提高图片的移动速度？高手指点下~~~

Private Sub Timer3_Timer()
s = (Image4.Top - Image5.Top) / (Image4.Left - Image5.Left)
Image4.Left = Image4.Left - 1 / s
Image4.Top = Image4.Top - s
End Sub
====================================
不管timer的Interval等于几，图片的移动速度都是很慢的，有没有什么办法可以解决呢？