VB 如何停止一个控件的运行

就是弄2个command，当按下command1时，就执行某些动作，在command1正在执行的时候按下command2时，就停止command1要执行的动作

Dim flag As Boolean
Private Sub Command1_Click()
Dim i As Long
Do
i = i + 1
If i = 3 * 10 ^ 5 Then
Debug.Print Time
i = 0
End If
If flag = True Then
flag = False
MsgBox "确定后退出command1"
Exit Do
End If
DoEvents
Loop
End Sub

Private Sub Command2_Click()
flag = True
End Sub

command1的鼠标触发事件中调用“某些动作”的启动动作，

command2的鼠标触发事件中调用“某些动作”的停止动作。

但是这和停止控件的运行有什么关系呢？实在是没能理解。