创建新类并声明具有事件的应用程序对象 （VBA/ActiveX）

您可以使用关键字为特定对象类型声明变量，以便在执行事件时收到通知。WithEvents

1. 在 VBA IDE 中，插入一个类模块。从“插入”菜单中，选择“类模块”。
2. 在 “Project Explorer”（项目资源管理器）窗口中选择新的类模块。
3. 将“属性”窗口中的类名称更改为 EventClass-Module。
4. 使用 F7 打开类的“代码”窗口，或者通过选择菜单选项“查看代码”打开。
5. 在类的“代码”窗口中，添加以下行：

   Public WithEvents App As AcadApplication

   使用事件声明新对象后，它将显示在类模块的“对象”下拉列表框中，并且可以在类模块中为新对象编写事件过程。（在“对象”框中选择新对象时，该对象的有效事件将列在“过程”下拉列表框中。