关于一个循环的问题（急急急急急急！！！！！！！！！！！）

Question

我想实现这样的功能，执行一个循环，当遇到特定的条件，循环停下来，当我触发另一事件，循环继续执行，不是重新运行，而且接着运行。
   有什么办法，另循环停下来，呢？
谢谢！！！

Answer 1

for i as integer = 0 to    doevents   if(GetFlag = true) then
       do something
   else
       do something
   endif
nextfunction GetFlag()

Answer 2

dim Pause as boolean '定义一个全局变量做标示
...
sub Form_KeyDown(...)
if Keycode=13 then Pause=not Pause '检测按键，如果是特定的键则改变标示
end sub
...
Sub Test() '假定这样一个过程中有个循环
DO
DoEvents　'等待外部事件
...　
if Pause then Stop　'如果外部事件改变了PAUSE为真则停下来
...
Loop