在用户窗体的UserForm_Click事件中加入如下的代码：

Private Sub UserForm_Click()

Dim i As Integer

定义一个TreeView 节点对象

Dim oTVW As Node

为TreeView控件添加一个根节点

Set oTVW = Me.TreeView1.Nodes.Add(, , R, Excel.ThisWorkbook.Name)

为TreeView控件的根节点添加多个同级的子节点

For i = 1 To Excel.ThisWorkbook.Worksheets.Count

Set oTVW = Me.TreeView1.Nodes.Add(R, tvwChild, C i, Worksheets(i).Name)

Next i

End Sub

如下图所示：

然后按下F5键运行代码在弹出的用户窗体处单击鼠标将显示TreeView控件的根节点，然后双击根节点将显示它的子节点，如下图所示：

TreeView控件添加节点的核心代码是

object.Add(relative, relationship, key,text, image, selectedimage)

其中relative参数表示已经存在的节点的Key或者索引号

relationship参数表示需要添加的节点与relative参数所表示的节点之间的关系，它可以是

TvwFirst：被添加的节点添加在relative参数所表示的同级别的节点的第一个

TvwLast1：被添加的节点添加在relative参数所表示的同级别的节点的最后一个

TvwNext：被添加的节点添加在relative参数所表示的节点的后面一个

TvwPrevious：被添加的节点添加在relative参数所表示的节点的前面一个

TvwChild：被添加的节点添加在relative参数所表示的节点的子节点

key参数表示为将要被添加的节点设置的Key

text参数表示为将要被添加的节点设置的显示文本。