Image:

Este nos sirve para agregar imágenes prediseñadas.

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

End Sub

Do While=Mientras que hacer