求帮助！ 停止循环

Private DoStop As Boolean
Private Sub Command1_Click() '开始循环
DoStop = False
    Do While DoStop = False
    DoEvents
      
      Do While DoStop = False
      Form1.Caption = "开@始"
       Loop
    Form1.Caption = "开始"
    Loop

Form1.Caption = "结束"
End Sub
Private Sub Command2_Click() '停止循环
'终止
DoStop = True
End Sub

求大神们帮忙 让多个循环里面嵌套多个循环的按停止按钮停止全部循环

在模块里面申明了 就是结束不了！

[ 本帖最后由 一键游 于 2013-1-29 18:13 编辑 ]