程序代码：

Dim nodX As Node
   Set nodX = TreeView1.Nodes.Add(, , "X1", "教学计划", 1)
  
   Set nodX = TreeView1.Nodes.Add(, , "X2", "学习要求", 1)
   Set nodX = TreeView1.Nodes.Add("X2", tvwChild, "C1", "目标", 2)
   Set nodX = TreeView1.Nodes.Add("X2", tvwChild, "C2", "重点", 2)
   Set nodX = TreeView1.Nodes.Add("X2", tvwChild, "C3", "难点", 2)
   nodX.EnsureVisible
  
   Set nodX = TreeView1.Nodes.Add(, , "X3", "例题精讲", 1)
  
   Set nodX = TreeView1.Nodes.Add(, , "X4", "课程测试", 1)
   Set nodX = TreeView1.Nodes.Add("X4", tvwChild, "C4", "分数设置", 2)
   Set nodX = TreeView1.Nodes.Add("X4", tvwChild, "C5", "分数查询", 2)
   Set nodX = TreeView1.Nodes.Add("X4", tvwChild, "C6", "修改试题", 2)
   Set nodX = TreeView1.Nodes.Add("X4", tvwChild, "C7", "加选择题", 2)
   Set nodX = TreeView1.Nodes.Add("X4", tvwChild, "C8", "加填空题", 2)
   Set nodX = TreeView1.Nodes.Add("X4", tvwChild, "C9", "加判断题", 2)
   nodX.EnsureVisible
  
   Set nodX = TreeView1.Nodes.Add(, , "X5", "师生互动", 1)
   Set nodX = TreeView1.Nodes.Add("X5", tvwChild, "C10", "接受文件", 2)
   Set nodX = TreeView1.Nodes.Add("X5", tvwChild, "C11", "师生交流", 2)
  
  
   Set nodX = TreeView1.Nodes.Add(, , "X6", "成绩考核", 1)
   Set nodX = TreeView1.Nodes.Add("X6", tvwChild, "C12", "成绩管理", 2)
   Set nodX = TreeView1.Nodes.Add("X6", tvwChild, "C13", "成绩排序", 2)
   nodX.EnsureVisible

 
   Set nodX = TreeView1.Nodes.Add(, , "X7", "系统管理", 1)
   Set nodX = TreeView1.Nodes.Add("X7", tvwChild, "C14", "用户管理", 2)
   Set nodX = TreeView1.Nodes.Add("X7", tvwChild, "C15", "系统日志", 2)
   Set nodX = TreeView1.Nodes.Add("X7", tvwChild, "C16", "退出系统", 2)
   nodX.EnsureVisible