图片移动问题

Question

我想在运行的时候，一个图片慢慢从窗口左边移动到窗口右边：

Answer 1

窗体，一个timer 一个imagePrivate Sub Form_Load()
Timer1.Interval = 20
Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
Image1.Left = Image1.Left + 10
If Image1.Left > Me.Width Then Image1.Left = -Image1.Width
End Sub

Answer 2

谢谢你的回复，我试了你说的方法，图片移动太快，我记得以前我用move方法做过，好长时间没用了，忘记了。

Answer 3

Image1.Left = Image1.Left + 10
后面那个10改小了速度就慢了，改大了速度就快

Answer 4

去 http://www.eightbird.com/ 看一下 typhoonGraph.ocx 控件是否适合用。发表些意见，则会免费。