treeview控件问题请高手指教

Question

请高手看如下的简单代码
Set nodX = TreeView1.Nodes.Add(, , "r", "职工基本情况")
Set nodX = TreeView1.Nodes.Add(1, tvwChild, , "姓名")
这样的代码添加了一个“职工基本情况”的根节点和一个“姓名”的子节点如果我想在按下“姓名”这个节点的时候，跳出一个对话框（就是msgbox）
这样的语句该怎么写啊
拜谢了

Answer 1

Private Sub Form_Load()
Dim nodX As Node
Set nodX = TreeView1.Nodes.Add(, , "r", "职工基本情况")
Set nodX = TreeView1.Nodes.Add(1, tvwChild, , "姓名")
nodX.EnsureVisible
End SubPrivate Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
If Node.Text = "姓名" Then
  MsgBox "哈哈，你选中了姓名节点！"
End If
End Sub

Answer 2

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
    Select Case Node.Key
        Case "a"
            MsgBox "a"
    End Select
End Sub