Codigo para desplazar una imagen de esquina a esquina

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