要求：编写动画程序。单击“开始”按钮，图像从左到右不断运动，“开始”按钮变为不可用，同时“停止”变为可用；用滚动条来控制运动的速度。
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，不知道上述错在哪里？另外怎样把图片从左到右运动？请高手指教。

1、程序没有像你说的提示出错，估计是你的控件属性设置有问题。
2、你的程序并不会移动图片，Move方法使用错(在你的需求下)
下面是我帮你修改的代码：
Option Explicit

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()
Static Flag As Boolean
If Flag And Picture1.Left <= 0 Then
Flag = False
ElseIf Not Flag And Picture1.Left + Picture1.Width > Me.Width - 50 Then
Flag = True
End If
Picture1.Move Picture1.Left + IIf(Flag, -3, 3)
End Sub
Private Sub VScroll1_Change()
Timer1.Interval = VScroll1.Value
End Sub

Private Sub Form_Load()
Image1.Stretch = True
Image1.Picture = LoadPicture("C:\Documents and Settings\Administrator\My Documents\My Pictures\941.gif")
VScroll1.Max = 100
VScroll1.Min = 1
VScroll1.LargeChange = 100
VScroll1.SmallChange = 15
Timer1.Interval = 1000
End Sub
Private Sub Command1_Click()
Command1.Enambled = False
Command2.Enambled = True
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Command1.Enambled = True
Command2.Enambled = False
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Picture1.Left = Picture1.Left+10

IF Picture1.Left >= Me.Left - Picture1.Left THEN
Picture1.Left = Me.Left - Picture1.Left
Command2_Click()
END IF
End Sub
Private Sub VScroll1_Change()
Timer1.Interval = VScroll1.Value
End Sub

应该可以实现功能了吧

仍然有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