本文共 247 字，大约阅读时间需要 1 分钟。

1）使用Event在类中声明事件；

Public Event Change(Cancle As Boolean)

2）使用WithEvents创建带Event的对象；

Private WithEvents mc As MyClass

3）在所有与事件发生关联的地方，使用RaiseEvent引发事件；

RaiseEvent Change(yn)

4）为对象的事件编写代码。

Private Sub mc_Change(ByRef Cancel As Boolean)

本文示例下载：

FROM：

转载地址：http://wutai.baihongyu.com/