我是一在做毕业设计的学生，这是我检索标签的程序，用treeview控件显示。不知什么地方的问题，只能检索到最顶层标签，程序提示自动化错误，下面的有颜色语句就是提示错误的地方。请指点迷津，谢谢！！！！！

Dim AnOPCBrowser As OPCBrowser
Public AnOPCServer As OPCServer
Public ProgID As String
Public AllOPCItemCounts As Long   '首先用browser方法得出这个变量的值，才能对全体数据进行加项以及读取
Public Const AllOPCItemNUMS = 500
Public ReturnBranches(1 To AllOPCItemNUMS) As String
Public AllOPCItemIDS(1 To AllOPCItemNUMS) As String
Public ClientHandles(1 To AllOPCItemNUMS) As Long
'通过浏览器对服务器的标签进行读取，并用treeview控件进行显示,因为是通用客户端，所以还不知道服务器中的标签是
'多少级的，必须进行判断。
Sub BrowserOPCItem()
    
    Dim i As Integer
    Dim j As Integer
    Dim ItemName() As String
    Dim TreeStr As String
    Dim SubTreeStr As String
    Dim ReturnBranches(1 To 500)
    '初始化opcbrowser
    Set AnOPCBrowser = Nothing
    
    Set AnOPCBrowser = AnOPCServer.CreateBrowser
    AnOPCBrowser.MoveToRoot
    AnOPCBrowser.ShowBranches
    AllOPCItemCounts = AnOPCBrowser.Count
    
    
    Form1.TreeView1.LineStyle = tvwRootLines '在兄弟接点和父接点之间显示线
    '对treeview控件进行节点的添加
    Form1.TreeView1.Nodes.Add , , "NO.1", ProgID
    
    
        For i = 1 To AllOPCItemCounts
            ReturnBranches(i) = AnOPCBrowser.Item(i)  '因为不允许对showbranches方法进行循环，必须先保存好服务器
                                                  '里面的枝
        Next i
       '把服务器里面所有的标签都添加到treeview1里面，每个标签是一个节点，因为每个标签里面还有子标签，所以要进行
       '多个循环
       For i = 1 To AllOPCItemCounts
           TreeStr = "NO." & (i + 1)
           Form1.TreeView1.Nodes.Add "NO.1", tvwChild, TreeStr, ReturnBranches(i)
           AnOPCBrowser.MoveDown (ReturnBranches(i))
          [color=#0000FF] AnOPCBrowser.ShowLeafs[/color]           '内循环是用来对子节点的添加
           For j = 1 To AnOPCBrowser.Count
               SubTreeStr = "NONO." & i & (j + 1)
               Form1.TreeView1.Nodes.Add TreeStr, tvwChild, SubTreeStr, AnOPCBrowser.I