B按钮停止A按钮的工作

 在一个FORM中,有两个BUTTON: A和B
我想问一下,如果A按下后,进行一些处理,这时候我想通过B按钮将A的处理停下来,请问应如何实现?
-------------------------------------------------------------------------------------------------------------------------------------
'方法1

Option Explicit

Private IsStop As Boolean  '设置一个变量.

Private Sub Command1_Click()
   Dim A1 As Long
   IsStop = False
   For i = 1 To 1000
     For j = 1 To 1000
       For m = 1 To 1000
         '这里是你的处理代码
         DoEvents  '一定要有,要不然不会响应你按别的按扭事件
         
         If IsStop Then Exit Sub  '判断是否有按停止按扭,.有按.退出进程
       Next
     Next
   Next
End Sub

Private Sub Command2_Click()
  IsStop = True   '设置为True.即停止/
End Sub
--------------------------------------------------------------------
'方法2

' 在一个form里添加2个按钮 ' 并且添加下面代码。此时点击按钮1，程序会不停循环打印Hi,how are you! ' 点按钮2停止
Dim flag As Boolean

Private Sub Command1_Click()
    flag = True
    While flag
    Debug.Print " Hi,how are you! "
    DoEvents
    Wend
End Sub

Private Sub Command2_Click()
 flag = False
  End Sub