主题：如何历遍控件种类

For Each r As RibbonMenu.Tab In RibbonTabs

    For Each g As RibbonMenu.Group In r.Groups

        For Each rc In g.Items

             If Typeof rc Is RibbonMenu.Button Then

                     Buttont = rc

                   dr("Ctitle")=Buttont.Text

                  dr("tableaddress")=buttont.Name

            If Typeof rc Is RibbonMenu.label Then

。。。。。

类似上述代码，准备历遍控件然后改变控件的TEXT，类似于英文界面和中文界面。

但不是所有的都有Text。

请问如何快速历遍控件的不同类型？