CTreeObject

Option Explicit
'This class holds a series of related CNode objects.

Dim m_Root As CNode
Public Property Get Root() As CNode
Set Root = m_Root
End Property
'_________________________________________________________


Private Sub Class_Initialize()
Set m_Root = New CNode
End Sub
'_________________________________________________________


Private Sub Class_Terminate()
Set m_Root = Nothing
End Sub