doevents raiseevent withevents

for i=1 to 9999999999
doevents '//转移控制权 让系统可以响应其它事件
next

raiseevent 触发类、窗体或文档中在模块级声明的事件。

withevents 声明一个对象时.可以使用该对象的事件