Recorrer controles de un Formulario DevExpre vb.net

En este ejemplo. en el primer intento se copian todos los controles que estan en el devExpress.

***************************************************************************
 Private Shared Sub SubRegistrarControles(ByRef unControl As DevExpress.XtraBars.Ribbon.RibbonControl, ByRef unform As Form)
        Dim A_siguiente As Boolean = True
        '************************************************************
        Dim descripcionControlRibbon As String = "testing-Ribbon"
        '************************************************************
        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

        For i As Integer = 0 To unform.Controls.Count - 1
            For Each Category In unControl.PageCategories                                                                                                   'Categorias
                Dim CTcontrol As String = Category.Name
                ConexionSQL.EjecutarSP("SP_HERRAMIENTAS_SIGMA_SEGURIDAD_INGRESAR_CONTROL_POR_APLICACION", My.Application.IDAPLICACION, CTcontrol, descripcionControlRibbon)
                For Each pagegroup As DevExpress.XtraBars.Ribbon.RibbonPage In Category.Pages                                                               'paginas
                    Dim CTgrupopage As String = pagegroup.Name
                    ConexionSQL.EjecutarSP("SP_HERRAMIENTAS_SIGMA_SEGURIDAD_INGRESAR_CONTROL_POR_APLICACION", My.Application.IDAPLICACION, CTgrupopage, descripcionControlRibbon)
                    For Each group As DevExpress.XtraBars.Ribbon.RibbonPageGroup In pagegroup.Groups                                                        'grupos
                        Dim CTgrupoBBI As String = group.Name
                        ConexionSQL.EjecutarSP("SP_HERRAMIENTAS_SIGMA_SEGURIDAD_INGRESAR_CONTROL_POR_APLICACION", My.Application.IDAPLICACION, CTgrupoBBI, descripcionControlRibbon)
                        For io As Integer = 0 To pagegroup.Groups.Count - 1
                            If A_siguiente = True Then
                                For Each button As DevExpress.XtraBars.BarButtonItem In group.Ribbon.Items.OfType(Of DevExpress.XtraBars.BarButtonItem)()   'botones
                                    Dim CtBBI As String = button.Name
                                    Dim CtBB_TAG As String = Convert.ToString(button.Tag)
                                    If button.Name <> "" Then

                                        ConexionSQL.EjecutarSP("SP_HERRAMIENTAS_SIGMA_SEGURIDAD_INGRESAR_CONTROL_POR_APLICACION", My.Application.IDAPLICACION, CtBBI, descripcionControlRibbon)
                                    End If
                                Next
                                A_siguiente = False
                            End If
                        Next
                    Next
                Next
            Next
        Next
    End Sub