For m As Integer = 0 To qat.items.count -1 If Typeof qat.items(m) Is RibbonMenu.menubutton Then Dim rb As RibbonMenu.menubutton = qat.items(m) For n As Integer = 0 To rb.Items.count - 1 If Typeof rb.items(n) Is RibbonMenu.button Then output.show(rb.items(n).name) End If Next End If Next