主题：传统菜单如何遍历呢？

Dim itm As RibbonMenu.RibbonItem

For Each itm In QAT.Items

      If Typeof itm Is RibbonMenu.Button Then

           output.show(itm.name) 

      End If

      If Typeof itm Is RibbonMenu.ComboBox  Then

         For Each obj As object In itm

             output.show(obj.name)

         End If

      End If

Next