VB高手进,怎么给自制控件添加属性,方法

我会添加一般的属性方法,但不会给属性或对象再添下一级的属性方法.
举例来说,Treeview控件中有Nodes对象,这个对象又有各种属性和方法,
如:Treeview1.Nodes.Add ,该怎么办呢?

使用集合类
下面是简单的示例代码
本示例含三个文件，
Form1.Frm 窗体文件，增加一个commandbutton，click事件包含显示代码
personCls.cls 类文件，表示人员的类代码附后
personsCls.cls 类文件，表示人员的集合

'---以下为代码
'Form1
Option Explicit

Private Sub Command1_Click()
Dim ps As New personsCls '人员集合类
Dim p As personCls '人员类

Set p = New personCls
p.PersonName = "王小二"
p.PersonAge = 23
ps.Add p, "111"

Set p = New personCls
p.PersonName = "赵老大"
p.PersonAge = 99
ps.Add p, "222"

'显示个数
MsgBox ps.Count

'通过Key执行某个元素的方法
ps.Items("111").Show

'通过索引执行某个元素的方法
ps.Items(2).Show

'删除
ps.Remove "111"

'显示个数
MsgBox ps.Count

'清空
ps.Clear