Coloreado fondo TextBox y Combos de UserForms.

Public Function ColorEnfoque(Frm As Form)

Dim Ctrl As control

'Esta Función debe ser llamada desde el Evento "Form_Load" del Formulario.  Ejemplo: Call ColorEnfoque(Me)

For Each Ctrl In Frm.Controls

        Select Case Ctrl.ControlType

                'Escribir las funciones sólo en los eventos de la clase de controles de cuadro de texto

                Case acTextBox, acComboBox 'TextBox y ComboBox

                        'Ensambla y escribe la Función ColoreaControl en Evento "Al Recibir el Enfoque" del TextBox

                        'Recordando que estamos dentro de la Fase FOR. Significa que todos los cuadros de texto reciben Función

                        If Ctrl.OnGotFocus = vbNullString Then Ctrl.OnGotFocus = "=ColoreaControl([" & Ctrl.Name & "],1)"           'Color Amarillo

                        'Cambia la Función ColoreaControl() en el Evento "Al Perder Foco" del Control

                        If Ctrl.OnExit = vbNullString Then Ctrl.OnLostFocus = "=ColoreaControl([" & Ctrl.Name & "],0)"         'Color Blanco

        End Select

Next

End Function

­­­­­­­­­­­­­­­­­­­­­­________________________________________

Public Function ColoreaControl(Ctrl As control, Color As Byte)

'Cambia el Fondo del control que recibe el Foco. Al recibir el Foco pasa a Amarillo. Al perder el Foco pasa a Blanco

Ctrl.BackColor = Switch(Color = 0, RGB(255, 255, 255), Color = 1, RGB(250, 250, 176))  'Para el Color de Fondo del Control

End Function