lIDParent
      End If
   End If
   '
End Sub

Public Property Get Count() As Long
Attribute Count.VB_Description = "Gets the number of nodes in this collection."
Dim ctl As vbalColumnTreeView
   If (pbVerify(ctl)) Then
      Count = ctl.fCount(m_lIDParent)
   End If
End Property

Public Property Get Item(Index As Variant) As cCTreeViewNode
Attribute Item.VB_Description = "Gets the item with the specified Key or index
 within the collection."
Attribute Item.VB_UserMemId = 0
Dim ctl As vbalColumnTreeView
Dim