求vb图片移动的代码

编写一个简单动画程序，实现以下功能
1) 红色小球自动从图片框的左侧移动到右侧，反复运行。
2) 拖动滚动条滑块可以调节小球的运行速度。
3) 单旋钮可以设置小球的的运行速度为最快或最慢。
程序界面如下：

---

我这里用的是picturebox
Private
Sub
Picture1_KeyDown(KeyCode
As
Integer,
Shift
As
Integer)
'这是控件的KEY_DOWN事件
Select
Case
(KeyCode)
Case
37
'向左
Picture1.Left
=
Picture1.Left
-
20
'向左就是让控件的left属性不断减小
Case
38
'向上冲培
Picture1.Top
=
Picture1.Top
-
20
'top属性减小
Case
39
'向右
Picture1.Left
=
Picture1.Left
+
20
'向右就是left不断增加散哗唯
Case
40
'向上
Picture1.Top
=
Picture1.Top
+
20
'top属芦汪性增加
End
Select
End
Sub
另外给你附上vb的坐标系统，以便你更好的理解left和top的原理

---

Private Const R = 100
Private Const L = 200
Private Sub Form_Load()
HScroll1.Max = 300
HScroll1.Min = 10
HScroll1.SmallChange = 10
HScroll1.LargeChange = 50
Timer1.Interval = 20
End Sub

Private Sub HScroll1_Change()
Timer1.Interval = 20
End Sub

Private Sub Timer1_Timer()
Static s As Integer
Dim i As Integer
Picture1.Cls
For i = 1 To R
Picture1.Circle (s, L), i, vbRed
Next i
s = s + HScroll1.Value
If s > Picture1.Width - R Then s = 0
End Sub
'添加扒梁携一个水平滚动春伏条，一个picturebox，一渣培个timer控件

---