主题：[求助]遍历窗口控件

If e.Node.Level = 0 Then
    Tables("授权表").current("窗口名") = e.Node.Name
ElseIf e.Node.Level >= 1 Then
    Tables("授权表").current("窗口名") = e.Node.ParentNode.Name
    Tables("授权表").current("控件名") = e.Node.Name
End If

老师，我要把目录树中的名称和标题分别赋值，按钮名称对应按钮名称、标题对应用户按钮标题。多谢了。

If e.Node.Level = 0 Then
    Tables("授权表").current("窗口名") = e.Node.Name
ElseIf e.Node.Level >= 1 Then
    Tables("授权表").current("窗口名") = e.Node.ParentNode.Name
    Tables("授权表").current("名称") = e.Node.Name
    Dim ary() As String = e.node.text.split("|")
    If ary.length = 2 Then
        Tables("授权表").current("标题") = ary(1)
    End If
End If

im tv As WinForm.TreeView = Args(0)

tv.Nodes.Clear

Dim nd As WinForm.TreeNode
Dim name As String
Dim sname() As String

For Each f As WinForm.Form In Forms
    name = f.Category
    sname = name.Split("\")
    Dim frmnd As WinForm.TreeNode
    If sname.Length = 1 AndAlso sname(0) = "" Then
        frmnd = tv.Nodes.Add(f.name)
    Else
        If tv.Nodes.Contains(sname(0)) = False Then
            nd = tv.Nodes.Add(sname(0))
        Else
            nd = tv.Nodes(sname(0))
        End If
        For i As Integer = 1 To sname.Length - 1
            If nd.Nodes.Contains(sname(i)) = False Then
                nd = nd.Nodes.Add(sname(i))
            Else
                nd = nd.Nodes(sname(i))
            End If
        Next
        frmnd = nd.Nodes.Add(f.name)
    End If
    Dim opened = f.Opened
    f.Open
    For Each c As object In f.controls
        try
            frmnd.Nodes.Add(c.name, c.name & " | " & c.Text)
        catch ex As exception
            frmnd.Nodes.Add(c.name)
        End try
    Next
    If opened = False Then f.Close
Next

老师，顶上代码不能执行下面内部函数。