IMAGEN DE IZQUIERDA A DERECHA

Private Sub Command1_Click()
End
End Sub

Private Sub Form_click()
Do While (carita.Left + carita.Width) < Form1.ScaleWidth
carita.Left = carita.Left + 10
Loop
carita.Left = 0
MsgBox ("termino")

End Sub