treeview控件问题请高手指教

[crazymanonly]

请高手看如下的简单代码
Set nodX = TreeView1.Nodes.Add(, , "r", "职工基本情况")
Set nodX = TreeView1.Nodes.Add(1, tvwChild, , "姓名")
这样的代码添加了一个“职工基本情况”的根节点和一个“姓名”的子节点

如果我想在按下“姓名”这个节点的时候，跳出一个对话框（就是msgbox）
这样的语句该怎么写啊
拜谢了

[crazymanonly]

为什么没人看啊

[myhgyp]

Private Sub Form_Load()
Dim nodX As Node
Set nodX = TreeView1.Nodes.Add(, , "r", "职工基本情况")
Set nodX = TreeView1.Nodes.Add(1, tvwChild, , "姓名")
nodX.EnsureVisible
End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
If Node.Text = "姓名" Then
MsgBox "哈哈，你选中了姓名节点！"
End If
End Sub

[zgvslch]

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

[crazymanonly]

我已经知道答案了，封贴

[crazymanonly]

当然，谢谢二位了，分还是要给的