Как зациклить анимацию движения фигуры - VB

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

Добрый вечер. Я только недавно начал изучать этот язык.Помогите пожалуйста с циклом. У меня есть форма(круг) и два таймера. Я сделал анимацию. Нужно чтобы анимация эта повторялась неограниченное кол-во раз. Вот написал код( круг "проезжает" Вправо, отталкивается от границы и "едет" до левой границы формы и замирает).

Private Sub Timer1_Timer()
Timer1.Enabled = True
Shape1.Left = Shape1.Left + 120
Shape1.Top = Shape1.Top
If Shape1.Left > 4500 Then Timer1.Enabled = False
If Timer1.Enabled = False Then Timer2.Enabled = True
End Sub
 
Private Sub Timer2_Timer()
Timer1.Enabled = False
Shape1.Left = Shape1.Left - 120
Shape1.Top = Shape1.Top
If Shape1.Left < 0 Then Timer2.Enabled = False
End Sub

Спасибо.

Решение задачи: «Как зациклить анимацию движения фигуры»

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

                            Dim dX As Integer
 
Private Sub Form_Load()
    dX = 1
End Sub
 
Private Sub Timer1_Timer()
    If Shape1.Left < 0 Or Shape1.Left > Me.Width - Shape1.Width Then dX = -dX
    Shape1.Left = Shape1.Left - 120 * dX
    'Shape1.Top = Shape1.Top
End Sub
                        