vbAccelerator - Contents of code file: cMyDebugObject.cls

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "cMyDebugObject"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit


Public FirstName As String
Public LastName As String
Public DateOfBirth As Date
Public ID As Long



Private Sub Class_Initialize()
   Debug.Print "cMyDebugObject:Initialise"
End Sub

Private Sub Class_Terminate()
   Debug.Print "cMyDebugObject:Terminate, id:" & ID
End Sub