怎样用VB语言编写动画程序?急急急

VB程序做动画 (10分急求）~

'加上一个定时器Timer1和一个图片框Picture1,图片命名为: 0.jpg 1.jpg ... 6..jpg
Dim ii As Integer
Private Sub Form_Load()
Timer1.Interval = 100
Picture1.AutoSize = True
End Sub
Private Sub Timer1_Timer()
ii = (ii + 1) Mod 7
Picture1.Picture = LoadPicture(App.Path & "/" & CStr(ii) & ".jpg")
End Sub

需要一个TIMER

Option Explicit
Dim X%, Y%, Dx%, Dy%, R%, A#
Const Pi = 3.141593
Const Rad = 180 / Pi

Private Sub Form_Load()
Randomize
Me.Width = 7290
Me.Height = 5280
Me.ScaleMode = vbPixels
Me.BackColor = &HFFFFC0
Me.FillColor = &H800080
Me.FillStyle = vbSolid
Me.BorderStyle = 1
Me.DrawMode = vbXorPen
Timer1.Interval = 30
Timer1.Enabled = True
Form1.Show
'
X = 240: Y = 180
A = Rnd * 2 * Pi
Dx = 8 * Cos(A): Dy = 8 * Sin(A)
R = 10
Circle (X, Y), 10, vbGreen
End Sub

Private Sub MoveBall()

'右壁弹回
If X + R >= Form1.ScaleWidth Then
A = (1 - (Dy < 0) + Rnd) * 90 / Rad
Dx = 8 * Cos(A): Dy = 8 * Sin(A)
End If
'左壁弹回
If X <= R Then
A = (-1 - (Dy > 0) + Rnd) * 90 / Rad
Dx = 8 * Cos(A): Dy = 8 * Sin(A)
End If
'上壁弹回
If Y <= R Then
A = (-(Dx < 0) + Rnd) * 90 / Rad
Dx = 8 * Cos(A): Dy = 8 * Sin(A)
End If
'底部弹回
If Y + R >= Form1.ScaleHeight Then
A = (2 - (Dx > 0) + Rnd) * 90 / Rad
Dx = 8 * Cos(A): Dy = 8 * Sin(A)
End If
Circle (X, Y), 10, vbGreen
X = X + Dx
Y = Y + Dy
Circle (X, Y), 10, vbGreen

End Sub

Private Sub Timer1_Timer()
MoveBall
End Sub

在窗体中拖入一个Picture控件，一个定时器控件（Interval属性设置为100或200ms）。

以下是初一信息技术书本上的代码（它有1.jpg~30.jpg共30个动画图片文件若文件数不同则需相应修改程序中的“30”这个数字），这些图片文件需放在VB工程文件所在的同一个文件夹内：

---

怎样用VB语言编写动画程序?急急急视频