IMAGEN EN MOVIMIENTO

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Click()
Do While (cara.Top + cara.Height) < mov.ScaleHeight
cara.Top = cara.Top + 1
Loop
Do While (cara.Left + cara.Width) <= mov.ScaleWidth
cara.Top = cara.Top - 1
cara.Left = cara.Left + 2
Loop
Do While (cara.Top + cara.Height) < mov.ScaleHeight
cara.Top = cara.Top + 1
Loop
Do While cara.Left > 0 And cara.Top > 0
cara.Top = cara.Top - 1
cara.Left = cara.Left - 2
Loop
MsgBox (" llego al final")
cara.Top = 0
cara.Left = 0
End Sub