主题：[求助]有关遍历快速访问栏菜单方法？

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