怎么让vb一运行图片就可以运动？用time控件

建一个Picture1.Timer1。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝

Private Sub Form_Load()
Timer1.Interval = 10
End Sub

Private Sub Timer1_Timer()
Picture1.Move IIf(Picture1.Left < Width, Picture1.Left + 10, -Picture1.Width)
End Sub

是自动变化吗??
如果是的话,先在VB窗体中建立一个定时器控件,在比如图片在C盘的bak文件中。
代码如下..
Private Sub Timer1_Timer()
On Error GoTo err
err: If err.Number <> 0 Then Dir "c:\bak\*.jpg"
Form1.Picture = LoadPicture("c:\bak\" & Dir())
End Sub

在把Timer1的Interval属性改成你想要的数字值,数字越小,变化的速度就越快.
比如设置成100 这样看看..当然可以随你自己的设置.