Заставить двигаться картинку слева направо, через Picturebox - VB

Формулировка задачи:

может кто помочь заставить двигаться эту картинку с лева на права через Picturebox.

Private Sub Command1_Click()
Circle (4000, 4000), 250
Circle (4000, 4500), 250
Circle (4000, 5000), 250
Circle (4500, 5000), 250
Circle (5000, 5000), 250
Circle (4000, 3250), 500
Circle (4200, 3200), 100
Circle (3800, 3200), 100
Circle (4000, 3400), 100
End Sub

Решение задачи: «Заставить двигаться картинку слева направо, через Picturebox»

textual
                            Листинг программы 
                        

                            Picture1.AutoRedraw = True
Do
    Picture1.Cls
    Picture1.Scale (Picture1.ScaleLeft - 3, Picture1.ScaleTop)- _
                   (Picture1.ScaleLeft + Picture1.ScaleWidth - 3, Picture1.ScaleTop + Picture1.ScaleHeight)
    Picture1.Circle (4000, 4000), 250
    Picture1.Circle (4000, 4500), 250
    Picture1.Circle (4000, 5000), 250
    Picture1.Circle (4500, 5000), 250
    Picture1.Circle (5000, 5000), 250
    Picture1.Circle (4000, 3250), 500
    Picture1.Circle (4200, 3200), 100
    Picture1.Circle (3800, 3200), 100
    Picture1.Circle (4000, 3400), 100
    DoEvents
Loop
                        