在创建类的实例时发生此事件。

Private Sub Class_Initialize()
    语句
End Sub

当类初始化时，statements部分由零个或多个将要运行的代码语句组成。

说明

下面的例子演示了 Initialize 事件的用法。

Class TestClass
   Private Sub Class_Initialize   ' 设置 Initialize 事件。
      MsgBox("TestClass started")
   End Sub
   Private Sub Class_Terminate   ' 设置 Terminate 事件。
      MsgBox("TestClass terminated")
   End Sub
End Class

Set X = New TestClass   ' 创建一个 TestClass 实例。
Set X = Nothing   ' 破坏实例。

要求

版本 5

请参阅

Class 对象 | Class 语句 | Terminate 事件

应用于：Class 对象