 ctlThis = ObjectFromPtr(lPtr)
         pbVerify = True
      Else
         gErr 1, "cListItems"
      End If
   Else
      gErr 1, "cListItems"
   End If
End Function

Friend Sub fInit(ctl As vbalColumnTreeView, ByVal lIDParent As Long)
   m_lIDParent = lIDParent
   m_hWndCtl = ctl.hwnd
End Sub

Public Function Add( _
      Optional ByVal Relative As cCTreeViewNode = Nothing, _
      Optional ByVal RelationShip As ETreeViewRelationshipContants = etvwChild,
       _
      Optional ByVal Key As String = "", 