Sub GetVisible(Control As IRibbonControl, ByRef visible)

    Select Case Control.ID
        ''ControlsVisible''
        Case Else
            visible = True

    End Select

End Sub