新手求指点VB怎样写暂停继续程序

求大神指点下新手怎样在程序中写暂停&继续程序，除了用变量记住暂停时的状态的这种方法（因为貌似有些繁琐）。~求大神指点啊~~~多谢多谢
用一个全局变量
Private IsPause As Boolean

在你的处理程序：
Sub Foo()
    While
        你的每一步计算
        DoEvents
        While IsPause
            DoEvents
            Sleep 100 '自己添加下Sleep API的定义
        Wend
    Wend
End Foo

按钮继续：
IsPause = False
按钮暂停：
IsPause = True Sub Foo()
     While
         你的每一步计算
        DoEvents
         While IsPause
             DoEvents
             Sleep 100 '自己添加下Sleep API的定义
        Wend
     Wend
 End Function 貌似有些明白~谢大神~我再去研究研究~ 让她睡觉被
sleep(100)//暂停100毫秒

补充：VB ,  基础类