谢谢五楼的朋友，但是这个命令是不起作用的，比如，当程序运行在无限循环的时候，这个按钮没有作用。当程序在运行中，这个命令也无用！
无限循环里, 你需要设置一个 标志变量 ,以便 可以在 循环一圈后 退出循环,然后还可以重新进入循环,继续上一次的循环.
不要直接写一个光的无限循环,如果是这样的话, 任何命令都会失去作用.因为系统的所有时间都在这个 无限循环中了,无法再处理其它事件了.
在循环中,让系统还可以处理其它事件 ,请加一条从
DoEvents
-----------------------------------------------
DoEvents 函数
转让控制权，以便让操作系统处理其它的事件。
语法
DoEvents( )
说明
DoEvents 函数会返回一个 Integer，以代表 Visual Basic 独立版本中打开的窗体数目，例如，Visual Basic，专业版，在其它的应用程序中，DoEvents 返回 0。
DoEvents 会将控制权传给操作系统。当操作系统处理完队列中的事件，并且在 SendKeys 队列中的所有键也都已送出之后，返回控制权。
DoEvents 对于简化诸如允许用户取消一个已启动的过程 — 例如搜寻一个文件 — 特别有用。对于长时间过程，放弃控制权最好使用定时器或通过委派任务给 ActiveX EXE 部件来完成。以后，任务还是完全独立于应用程序，多任务及时间片由操作系统来处理。
