我是这样实现的!! 但还是不理想! 不只如何判断接点是否存在!
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
On Error Resume Next
If Node.Key = "key1" Then
TreeView1.Nodes.Add "key1", tvwChild, "key11", "历史书1", 2
TreeView1.Nodes.Add "key1", tvwChild, "key12", "历史书2", 2