要求：编写动画程序。单击“开始”按钮，图像从左到右不断运动，“开始”按钮变为不可用，同时“停止”变为可用；用滚动条来控制运动的速度。
Private Sub Form_Load()
Image1.Stretch = True
Image1.Picture = LoadPicture("C:\Documents and Settings\Administrator\My Documents\My Pictures\941.gif")
VScroll1.Max = 20000
VScroll1.Min = 1
VScroll1.LargeChange = 100
VScroll1.SmallChange = 15
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Picture1.Move Picture1.Left
End Sub
Private Sub VScroll1_Change()
Timer1.Interval = VScroll1.Value
End Sub
为什么在VScroll1.Max = 20000一行会显示实时错误424，不知道上述错在哪里？另外怎样把图片从左到右运动？请高手指教。

仍然有VScroll1.Max = 20000实时错误424,是vscroll属性的问题吗
我的属性是这样的
causes validati true
dradicon (none)
dragmode 0-manual
enabled true
height 615
helpcontext 0
index
largechange 1
left 600
max 20000
min 0
mouseicon (none)
mousepointer 0-default
righttoleft false
smallchange 1
tabindex 2
tabstop true
tag
top 240
value 0
visible true
whatsthishelpi 0
width 1935