AYUDA CON ANIMACION DE DIBUJO!

PI
27 de Abril del 2004
tengo este codigo que hace a un muñequito hacer jumping jacks:

Private Sub Command1_Click()
Timer1.Enabled = True
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Static m As Integer

If (m = o) Then
Picture1.Cls
Picture1.Scale (15, 30)-(30, 15)
Picture1.Circle (25, 25), 2.1
Picture1.Circle (24, 25.5), 0.2, vbBlue
Picture1.Circle (26, 25.5), 0.2, vbBlue
Picture1.Circle (25, 24.5), 0.5, vbRed, 3.14 * PI
Picture1.Line (25, 23.5)-(25, 19.5)
Picture1.Line (25, 22.5)-(22, 26)
Picture1.Line (25, 22.5)-(28, 26)
Picture1.Line (25, 19.5)-(22, 16)
Picture1.Line (25, 19.5)-(28, 16)
m = 1

ElseIf (m = 1) Then
Picture1.Cls

Picture1.Scale (15, 30)-(30, 15)
Picture1.Circle (25, 25), 2.2
Picture1.PSet (24, 25.5), vbBlack
Picture1.PSet (26, 25.5), vbBlack
Picture1.Circle (25, 24.5), 0.3, vbBlue, 3.14 * 2
Picture1.Line (25, 23.5)-(25, 19.5)
Picture1.Line (25, 22.5)-(24, 21)
Picture1.Line (25, 22.5)-(26, 21)
Picture1.Line (25, 19.5)-(23.5, 16)
Picture1.Line (25, 19.5)-(26.5, 16)
m = 0
End If

End Sub

usando :
Dim correr As New Collection

y algo así :
Private Sub form1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
PSet (X, Y)
Correr.Add (X)
Correr.Add (Y)
End Sub

para grabar la trayectoria que el mouse hizo en el form y luego que el muneco haciendo jumping jacks se mueva por ella.gracias