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

做了个传统菜单，不知道如何来遍历其下所有子项。

借鉴案例来做，发现历出来的不是 "快捷访问栏"菜单项，而是，功能区的。

没闹明白，功能区和快捷访问菜单遍历的区别。

For Each a1 As RibbonMenu.Tab In RibbonTabs
    For Each a2 As RibbonMenu.group In a1.Groups
        For Each a3 As RibbonMenu.RibbonItem In a2.Items
            If Typeof a3 Is RibbonMenu.Button Then
                MessageBox.show(a3.Name)
            End If
        Next
    Next
Next

先别回，我刚错楼层了。

Bin,

这个只挖到了第一层，还可以再往下挖不？ 代码该怎么写。求教

Dim itm As RibbonMenu.RibbonItem
For Each itm In QAT.Items
      If Typeof itm Is RibbonMenu.Button Then
           output.show(itm.name)
      End If
Next