Dim 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