Остановка цикла в любой момент

Private Sub Цвет_Click()
    Палитра.ShowColor
    Цвет.BackColor = Палитра.Color
End Sub
Private Sub Завершить_Click()
    End
End Sub
 
Private Sub Пуск_Click()
    P1.ForeColor = Палитра.Color
    P1.Scale (0, 600)-(600, 0)
    n = InputBox("Введите радиус маятника ")
    l = InputBox("Введите длину маятника в пикселях")
    h = InputBox("Введите количество качаний маятника")
    For k = 1 To h
            For f = -3.14 / 6 To 3.14 / 6 Step 0.00005
                    P1.FillStyle = 0
                    P1.FillColor = Палитра.Color
                            x = 300 + l * Sin(f)
                            y = 500 - l * Cos(f)
                
                    P1.Line (0, 500)-(8000, 500)
                    P1.Line (300, 500)-(x, y)
                    P1.Line (300, 500)-(x, y), vbBlack
                    P1.Circle (x, y), n, vbBlack
 
            Next f
            For f1 = 3.14 / 6 To -3.14 / 6 Step -0.00005
                x = 300 + l * Sin(f1)
                y = 500 - l * Cos(f1)
    
                P1.Line (300, 500)-(x, y)
                P1.Circle (x, y), n
                P1.Line (300, 500)-(x, y), vbBlack
                P1.Circle (x, y), n, vbBlack
                Y2 = 500 + 100 * Sin(X2 / 50)
            Next f1
 
            P1.FillStyle = 1
            P1.FillColor = vbBlack
 
    Next k
 
End Sub

For k = 1 To h
  DoEvents
  '.......

Dim b_Stop as boolean 'объявить в самом верху модуля формы
 
Private Sub Stop_Click() 'это код новой кнопки с именем Stop
    b_Stop=true
End Sub

For k = 1 To h
  DoEvents
  if b_Stop then exit sub
  '.......

Private Sub Пуск_Click()
  b_Stop=0
  '..........