Já que tem que usar o gotfocus e o lostfocus, use pelo menos uma função pra facilitar. Assim, no form, vc pode deixar todos as subs de focus juntas e fica fácil de editar:
no módulo:
Public Const p_CorFundo1 = -2147483624 'definir as cores utilizadas
Public Const p_CorFundo2 = -2147483643
Public Sub FocoSim(xObj As Control)
If Not (TypeOf xObj Is TextBox Or TypeOf xObj Is ComboBox) Then Exit Sub
xObj.BackColor = p_CorFundo1
End Sub
Public Sub FocoNao(xObj As Control)
xObj.BackColor = p_CorFundo2
End Sub
no form:
Private Sub Text1_GotFocus() 'no got usa activecontrol
FocoSim ActiveControl
End Sub
Private Sub Text2_GotFocus()
FocoSim ActiveControl
End Sub
Private Sub Combo1_GotFocus()
FocoSim ActiveControl
End Sub
Private Sub Text1_LostFocus() 'no lost usa o próprio objeto (Text1, ...)
FocoNao Text1
End Sub
Private Sub Text2_LostFocus()
FocoNao Text2
End Sub
Private Sub Combo1_LostFocus()
FocoNao Combo1
End Sub
