reeView
Dim lID As Long
Dim lErr As Long
   If (pbVerify(ctl)) Then
      On Error Resume Next
      lID = ctl.fIDForIndex(Index)
      lErr = Err.Number
      On Error GoTo 0
      Exists = ((lID &lt;&gt; 0) And (lErr = 0))
   End If
End Function

Public Property Get Parent() As cCTreeViewNode
Attribute Parent.VB_Description = "Gets the parent of this node collection, if
 any, otherwise returns Nothing if it contains the root items in the tree."
Dim ctl As vbalColumnTreeView
   If (pbVerify(ctl)) Then
    