Private Sub Form_Load()
   '设置 Treeview 控件属性。
   TreeView1.LineStyle = tvwRootLines  ' Linestyle 1   '添加 Node 对象。
   Dim nodX As Node    '声明 Node 变量。
   '带有文本 'Root' 的第一个节点。
   Set nodX = TreeView1.Nodes.Add(, , "r", "Root")   '下一个节点是节点 1 ("Root") 的子节点。
   Set nodX = TreeView1.Nodes.Add("r", tvwChild, "child1", "Child")End Sub