在VB中然后响应Treeview的单击事件

Question

  新手上路    请指教
如何单击相应的子节点在对应的文本框显示Text1.Text = ""
 Dim nodX As Node
   Set nodX = TreeView1.Nodes.Add(, , "R", "《红树林 绿天使》")
   Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C1", "首页")
    Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C2", "目录")
      TreeView1.Nodes.Add "C2", tvwChild, "d1", "《红树林现状调查报告》节选"
      TreeView1.Nodes.Add "C2", tvwChild, "d2", "《保护深圳红树林活动计划书》"
      TreeView1.Nodes.Add "C2", tvwChild, "d3", "调查问卷"
      TreeView1.Nodes.Add "C2", tvwChild, "d4", "宣传资料"
      TreeView1.Nodes.Add "C2", tvwChild, "d5", "活动总结报告"
      TreeView1.Nodes.Add "C2", tvwChild, "d6", "人事安排表"
      TreeView1.Nodes.Add "C2", tvwChild, "d7", "调查问卷"
      
 
   Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C3", "相册")
   Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C4", "音乐播放器")
   Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C5", "红树林相关资料")
   Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C6", "封页")
   Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C7", "班级通讯录")
   nodX.EnsureVisible

Answer 1

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
    Text1.Text = Node.Text
End Sub

Answer 2

thank  you! 
I see!