Como Recorrer una Barra de controles DevExpress, sus botones y paginas

ejemplo:


 Private Shared Sub DesactivarElementosDelRibbon(ByRef unControl As DevExpress.XtraBars.Ribbon.RibbonControl)
        RibbonControl = New DevExpress.XtraBars.Ribbon.RibbonControl
        RibbonControl.Name = unControl.Name

        Solapas = New DevExpress.XtraBars.Ribbon.RibbonPage
        Grupo = New DevExpress.XtraBars.Ribbon.RibbonPageGroup
        Category = New DevExpress.XtraBars.Ribbon.RibbonPageCategory
        'Boton = New DevExpress.XtraBars.BarItemLink


        For Each Category In unControl.PageCategories 'Categorias
            For Each pagegroup As DevExpress.XtraBars.Ribbon.RibbonPage In Category.Pages
                For Each group As DevExpress.XtraBars.Ribbon.RibbonPageGroup In pagegroup.Groups
                    For Each button As DevExpress.XtraBars.BarButtonItem In group.Ribbon.Items.OfType(Of DevExpress.XtraBars.BarButtonItem)()
                        If button.Name <> "rbtnExit" Then
                            button.Enabled = False
                        End If
                    Next
                    For Each button As DevExpress.XtraBars.BarSubItem In group.Ribbon.Items.OfType(Of DevExpress.XtraBars.BarSubItem)()
                        button.Enabled = False
                    Next
                Next
            Next
            Category.Visible = False
        Next



        For Each Solapas In unControl.Pages 'Recorro las solapas
            Solapas.Visible = False

            For Each Grupo In Solapas.Groups  'Los grupos
                Grupo.Visible = False
                Grupo.Enabled = False
                For Each Boton In Grupo.ItemLinks 'Los botones
                    Boton.Item.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
                    Boton.Item.Enabled = False
                Next
            Next
        Next
    End Sub