for i=1 to 9999999999 doevents '//转移控制权 让系统可以响应其它事件next raiseevent 触发类、窗体或文档中在模块级声明的事件。 withevents 声明一个对象时.可以使用该对象的事件