For Each cm As RibbonMenu.ContextMenu In ContextMenus
output.show("menu:" & cm.Name)
For Each itm As object In cm.items
output.show("++menu1:" & itm.Name)
If Typeof cm.Items(itm.Name) Is RibbonMenu.ContextCommandMenu Then
For Each itm2 As object In cm.Items(itm.Name).items
output.show("++++Menu2:" & itm2.Name)
Next
End If
Next
Next