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