http://www.foxtable.com/webhelp/topics/1132.htm
For Each btn As RibbonMenu.Button In QAT.Items
Output.Show(btn.name)
Next
For Each btn As RibbonMenu.RibbonItem In QAT.Items
If TypeOf btn Is RibbonMenu.Button Then
Output.Show(btn.name)
Else
Dim it As RibbonMenu.MenuButton = btn
For Each btn2 As RibbonMenu.RibbonItem In it.Items
If TypeOf btn2 Is RibbonMenu.Button Then
Output.Show(btn2.name)
Else
Dim it2 As RibbonMenu.MenuButton = btn2
For Each btn3 As RibbonMenu.RibbonItem In it.Items
Output.Show(btn3.name)
Next
End If
Next
End If
Next