ЧТО-ТО ДЕЛАЮ НЕ ТАК !!!! - VB

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

'ЧТО-ТО ДЕЛАЮ НЕ ТАК !!!!
'нет справки в (VB6) по этому обращаюсь к вам
'как использовать кнопки в циклах (FOR)
'быть может есть еще какой-то выход кроме (REFRESH)
Dim a&, b$
Private Sub Command1_Click() 'кнопка стоп
b$ = "стоп"
End Sub
Private Sub Form_Activate()
b$ = ""
For a& = 0 To 1000000000
Command1.Refresh 'ПОЧЕМУ НЕ РАБОТАЕТ КНОПКА СТОП ?!
If b$ = "стоп" Then Command1.Caption = "работает": Exit For
Next a&
End Sub

Решение задачи: «ЧТО-ТО ДЕЛАЮ НЕ ТАК !!!!»

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

                            <font color="blue">Do</font> Wlile True
  ...
  DoEvents
<font color="blue">Loop</font>
                        