Выход из цикла не получается

[Сергей2012]

Ищу добрую душу, для помощи.
Пытаюсь делать одну прикладную прогу, но не получается. Вот кусочек, который желательно переделать. Нужно, чтобы счётчик, запускался и останавливался не при отпускания клавиши мышки, а при нажатии
Сюда на форму добавляются две кнопки и текстовое окно.

Dim x As Long
Private Sub Command1_Click()
x = 0
Do While x = 0 ' Если X = 0 то цикл повторятся
DoEvents ' Это чтоб цикл не зациклился, если ее не напишешь то комп будет виснуть
Text1.Text = Text1.Text + 1 ' Каждый раз когда цикл будет повторяться текст в текстовом поле будет на 1 увеличиваться
Loop
End Sub

Private Sub Command2_Click()
x = 1 ' При нажатии на кнопку цикл останавливается
End Sub

Private Sub Form_Load()
x = 0
Text1.Text = 0
End Sub