Move images vb6, Msaccess.vba

Question

I added an image and a Button to a form, created this code:

Option Compare Database

Private Sub Command0_Click()
Do Until Me.Width < 4000
Let Image1.Left = Image1.Left - 5
DoEvents
Loop
End Sub

Just like this allows you to move the image from the right side to the left how to make the image to rotate the entire fomulário,Without stopping with a button and without using the timer? Does anyone have an effective idea of how to do this?