Class object

Class TestClass
Private Sub Class_Initialize ‘ Setup Initialize event.
MsgBox(«TestClass started»)
End Sub
Private Sub Class_Terminate ‘ Setup Terminate event.
MsgBox(«TestClass terminated»)
End Sub
End Class

Set X = New TestClass ‘ Create an instance of TestClass.
Set X = Nothing ‘ Destroy the instance.

Tags:
This site is protected by WP-CopyRightPro