te 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:" &amp; ID
End Sub
</pre><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p></td><td class="rightbar" valign="top" bgcolo