悠悠博客 关注Ajax技术与web开发

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

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 ClassSet X = New TestClass ' 创建一个 TestClass 实例。
Set X = Nothing ' 删除实例。