工具条的使用问题

ty_1029

我用一位哥们的TREE事例在学习,但现在遇到点问题,大家帮我看看.
附件1是原表,附件是我修改里面的主控面板的工具条控件
他原来的是显示与隐藏,我想直接修改为刷新,也就是刷新按纽的作用是把TREE控件的显示恢复到加载后没有展开的样子.
我把部分粘贴出来,大家看看,主要我修改后老是提示"集合中的关键子不唯一"

1. 
   
2. 原来的代码部分：
   
3. Case "hide"     '显示隐藏菜单
   
4.    
   
5. Application.Echo False
   
6.         DoCmd.Hourglass True
   
7.         Me.Toolbar0.Buttons.Remove "hide"
   
8.         Set btnX = Me.Toolbar0.Buttons.Add(1, "show", "显示", tbrDefault, "show")
   
9.         btnX.ToolTipText = "显示菜单"
   
10.         btnX.Description = btnX.ToolTipText
    
11.         Me.TreeView9.Visible = False
    
12.         Me.Label80.Visible = False
    
13.         RemoveControl       '重新移动控件
    
14.         Application.Echo True
    
15.         DoCmd.Hourglass False
    

复制代码

1. 
   
2. 修改后：
   
3. Case "hide"     '显示隐藏菜单
   
4.      Tree.Nodes.Clear
   
5.     Tree.Indentation = 0
   
6.     Form_Load
   

复制代码

附件1:
附件2:

ty_1029

"集合中的关键子不唯一"
搞了半天实在搞不明白~~~~~~~~