主题：关于Tree 中的一些问题

Dim TV As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim N As WinForm.TreeNode
Dim N1 As WinForm.TreeNode
Dim N2 As WinForm.TreeNode
Dim N3 As WinForm.TreeNode

N=TV.Nodes.Add ("BOOT","系统菜单")
n.Checked= True
For Each T As RibbonMenu.Tab In RibbonTabs
    N1=N.Nodes.Add(t.Name,t.Text)

    N1.CHECKED=TRUE
    For Each G As RibbonMenu.Group In T.Groups
        N2=N1.Nodes.Add(G.Name,G.Text)

        N2.CHECKED=TRUE
        For Each C As RibbonMenu.RibbonItem In G.Items
            If C.ToolTip<>""
                N3=N2.Nodes.Add(C.Name,C.ToolTip)

                N3.CHECKED=TRUE
            End If
        Next
    Next
Next

TV.ExpandAll

但是，打开窗口根本看不到，程序就没了，不知什么原因