Почему зависает мой проект? - VB

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

Вот мой проект самолёта после клика на нём он должен там три раза пролететь туда сюда а на втором разе он зависает.Вложение 272903 Помогите разобраться пожалуйста. Заранее спасибо. Система windows xp visual basic 6.0

методом тыка выяснил что зависание связано както со временем, если скорость быстрее то не зависает если перемещение самолета замедляеш то зависает. Как быть?

Решение задачи: «Почему зависает мой проект?»

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

                            Dim x As Double
Dim i As Integer
 
Private Sub move_1()
      Image1.Visible = True
      Image1.Left = 360
      x = Image1.Left
      Do While x <= 7000
              x = x + 0.022
                      Image1.Left = x
      Loop
      Image1.Visible = False
      
      Image2.Visible = True
      Image2.Left = 7000
      x = Image2.Left
      Do While x > 360
              x = x - 0.022
                      Image2.Left = x
      Loop
      Image2.Visible = False
      Image1.Left = 360
      Image1.Visible = True
End Sub
 
Private Sub Image1_Click()
For i = 1 To 3
move_1
Next i
End Sub
                        