     End If
      lIDNew = ctl.fAdd(lIDRel, RelationShip, Key, Text, Image, SelectedImage)
      If Not (lIDNew = 0) Then
         Set nodRet = New cCTreeViewNode
         nodRet.fInit ctl, lIDNew
         Set Add = nodRet
      End If
   End If
End Function

Public Sub Clear()
Attribute Clear.VB_Description = "Clears all the nodes from this collection."
Dim ctl As vbalColumnTreeView
   If (pbVerify(ctl)) Then
      If (m_lIDParent = 0) Then
         ctl.fRemoveAll
      Else
         ctl.fRemoveChildren m_