m ctl As vbalColumnTreeView
Dim lID As Long
   If (pbVerify(ctl)) Then
      If Not IsNumeric(Index) Then
         lID = ctl.fIDForIndex(Index)
      Else
         lID = ctl.fIDForNumericIndexInSubTree(m_lIDParent, Index)
      End If
      If Not (lID = 0) Then
         ctl.fRemove lID
      End If
   End If
End Sub

Public Function Exists(Index As Variant) As Boolean
Attribute Exists.VB_Description = "Returns true if the item with the specified
 key exists in the collection or not."
Dim ctl As vbalColumnT