求vb 中实现treeview子节点功能代码 - 编程论坛

程序代码：

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

单击treeview下的子节点实现他们的功能比如打开某个窗体或者其他一些功能谢谢了