dim j as Integer
  第1阶  Set nodex = TreeView1.Nodes.add(, , a, Trim(mrc.Fields(0)), 1, 1)
  第2阶  Set nodex = TreeView1.Nodes.add(a, tvwChild, "bumen" & j, Trim(mrc1.Fields(1)), 2, 2)
  第3阶  Set nodex2 = TreeView1.Nodes.add("bumen" & j, tvwChild, "zhube" & k, Trim(mrc2.Fields(2)), 1, 1)
  
  现在我想将这3个阶的所有节点将入一个3维数组，以便我以后查看使用,百度中说用 递归 我不知道要怎么改写这样的
    BR(1阶,2阶,3阶)
而不是双击某个节点后再知道这点节点有多少个节点。。？
下面是网上写的递归，但不知道怎么改？
Private Sub traval(NodeX As Node)   
    Dim count As Integer
    Dim ChildNode As Node   
    count = NodeX.Children   
    Debug.Print NodeX.Text '或者对节点进行其他操作   
    If count > 0 Then   
        Set ChildNode = NodeX.Child      
        traval ChildNode        
        For I = 2 To count
          Set ChildNode = ChildNode.Next         
          traval ChildNode
        Next        
    End If
End Sub


Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
   traval Node   
End Sub