Остановите цикл

[Novichok$]

Подскажите, как это «культурно» остановить.

Задумано так, что вместо MessageBox.Show("Pause")
Будет выполняться код.

Задача была – получить бесконечный цикл. Так, цикл получил, а как теперь остановить его – не знаю.
На форме только Button и CheckBox.
Нажимаю на Button – процесс пошел.
Хотел убрать галочку в CheckBox, что бы снять условие для работы бесконечного цикла, но CheckBox «не хочет» (недоступен).
Похоже, я пытаюсь влезть в работающий процесс, а VB этого не позволяет.

Может кто знает, как быть

Код: Выделить всё

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    StarteSleep()
End Sub

Private Sub StarteSleep()
        While Me.CheckBox1.Checked
            MessageBox.Show("Pause")
            Sleep(60000)
        End While
End Sub