主题：遍历菜单问题

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)

        Next

    Next

Next