Alguien tiene ideas?gracias.

PI
13 de Abril del 2004
Animacion Jumping Jacks por una trayectoria hecha con
un ratón.

Desarrolle un programa en Visual Basic que
registre las coordenadas por donde atraviesa el
ratón sobre un form. Una vez registradas las
coordenadas, su programa debe de mover el pictureBox
de la asig anterior (animación de una persona haciendo
jumping jacks) por la misma ruta por donde pasó el ratón.

PI
13 de Abril del 2004
I have this code that makes little man look like he is doing jumping jacks..Now, I need to use......go down the code :)




Private Sub Command1_Click()

Picture2.Scale (15, 30)-(30, 15)
Picture2.Circle (25, 25), 2.1
Picture2.Circle (24, 25.5), 0.2, vbBlue
Picture2.Circle (26, 25.5), 0.2, vbBlue
Picture2.Circle (25, 24.5), 0.5, vbRed, 3.14 * PI
Picture2.Line (25, 23.5)-(25, 19.5)
Picture2.Line (25, 22.5)-(22, 26)
Picture2.Line (25, 22.5)-(28, 26)
Picture2.Line (25, 19.5)-(22, 16)
Picture2.Line (25, 19.5)-(28, 16)


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)
End Sub
Private Sub Form_Load()
Picture2.Visible = False
Picture1.Visible = False
Timer1.Interval = 300
End Sub
Private Sub Timer1_Timer()
Static TrueFalse As Boolean
If TrueFalse Then
Picture3.Picture = Picture1.Image
Else
Picture3.Picture = Picture2.Image
End If
TrueFalse = Not TrueFalse
End Sub
I need to use this:


Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim mousemove As Collection

End Sub

to make the program remember the path I've made with the mouse so the little man doing jumping jacks follow that path.