求助vb代码,急.......

在vb运行中按下command1按钮代码暂停运行在按下command2按钮又继续运行 --------------------编程问答-------------------- sub command1_click()
me.tag=1
do while val(me.tag)<>0
   doevents:sleep 1
loop
...
...
...
end sub

sub command2_click()
    me.tag=0
end sub

补充：VB ,  基础类