_
      Optional ByVal Text As String = "", _
      Optional ByVal Image As Long = -1, _
      Optional ByVal SelectedImage As Long = -1 _
   ) As cCTreeViewNode
Attribute Add.VB_Description = "Adds a new node with the specified relation to
 the node which owns this collection."
Dim ctl As vbalColumnTreeView
Dim lIDRel As Long
Dim lIDNew As Long
Dim nodRet As cCTreeViewNode
   If (pbVerify(ctl)) Then
      If (Relative Is Nothing) Then
         lIDRel = m_lIDParent
      Else
         lIDRel = Relative.ID
 