如何在一个程序中让另一个函数或过程结束

设全局标志位吧。

比如第一个过程

do
.....
DoEvents
if stopyn then
   exit do
end if
loop

--------------
第二个过程，为一个事件
当按下 停止按钮时
stopyn=true
------
那么第一个过程中，循环执行到if时，发现 stopyn 为真后，就结束循环，结束过程的运行。

THANK YOU