 lID As Long
   If (pbVerify(ctl)) Then
      If (m_lIDParent = 0) Or Not IsNumeric(Index) Then
         lID = ctl.fIDForIndex(Index)
      Else
         lID = ctl.fIDForNumericIndexInSubTree(m_lIDParent, Index)
      End If
      If Not (lID = 0) Then
         Dim cItem As New cCTreeViewNode
         cItem.fInit ctl, lID
         Set Item = cItem
      End If
   End If
End Property

Public Sub Remove(Index As Variant)
Attribute Remove.VB_Description = "Removes the item with the specified index or
 key."
Di