Безошибочное зацикливание анимации - VB

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

Всем привет! Ребята, помогите плиз) VB юзаю чисто ради учебы, прошу не пинать В общем есть такое чудо:

Private Sub Command1_Click()
        For x = 1 To 400 Step 0.01
            Picture1.Circle (0, 0), x
        Next x
        For n = 1 To 399 Step 0.01
            Picture1.Circle (0, 0), (400 - n), vbWhite
        Next n
 
End Sub
 
Private Sub Form_Load()
    Picture1.ScaleMode = vbPixels
    Picture1.Scale (500, 500)-(-500, -500)
End Sub

Это чудо типа плавное увеличение и уменьшение круга имитирует.нужно зациклить ее, чтобы при единоразовой нажатии кнопки, (или можно даже сразу при запуске), программа начинала работать и работала беспрерывно. Делал следующее:

Private Sub Command1_Click()
for b=1 to 2
b=1
        For x = 1 To 400 Step 0.01
            Picture1.Circle (0, 0), x
        Next x
        For n = 1 To 399 Step 0.01
            Picture1.Circle (0, 0), (400 - n), vbWhite
        Next n
next b
End Sub
 
Private Sub Form_Load()
    Picture1.ScaleMode = vbPixels
    Picture1.Scale (500, 500)-(-500, -500)
End Sub

Но в этом случае ошибка "Программа не отвечает". Спасибо!

Решение задачи: «Безошибочное зацикливание анимации»

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

                            Private Sub Command1_Click()
    Do
        For x = 1 To 400 Step 0.01
            Picture1.Circle (0, 0), x
            DoEvents
        Next x
        For n = 1 To 399 Step 0.01
            Picture1.Circle (0, 0), (400 - n), vbWhite
            DoEvents
        Next n
    Loop
 
End Sub
 
Private Sub Form_Load()
    Picture1.ScaleMode = vbPixels
    Picture1.Scale (500, 500)-(-500, -500)
    Picture1.AutoRedraw = True 'можно прописать в свойствах
End Sub
                        