主题：遍历菜单问题

 再加循环就行了

For Each tab As RibbonMenu.Tab In RibbonTabs
    Output.Show(tab.Name)
    For Each grp As RibbonMenu.Group In RibbonTabs(tab.Name).Groups
        Output.Show("  " & grp.Name)
        For Each itm As RibbonMenu.RibbonItem In RibbonTabs(tab.Name).Groups(grp.Name).Items
            Output.Show("    " & itm.Name)
            If itm.Gettype.name = "MenuButton" Then
                Dim temp As object = itm
                For Each i As Object In temp.Items
                    Output.Show("                  " & i.Name)
                Next
            End If
        Next
    Next
Next