[Resolvido]efeito pintar caixa de texto em foco no formulario

boa tarde !!!

tenho um formulario que recebe dados de uma consulta.
e coloquei o cadigo abaixo para ao reber o foco o campo ficar em laranja e ao perder o foco volta ao normal, porem esse campo ja vem preenchido e ao mover o foco os dados desaparecem e da que os valores estao duplicados.

o codigo e este de um exemplo do forum.
Public Sub ctl_Foco()
Dim lngVerde As Long
Dim lngLaranja As Long

lngBorderColor = Me.ActiveControl.BorderColor

lngVerde = RGB(154, 205, 50)
lngLaranja = RGB(255, 211, 155)
Me.ActiveControl.Value = ""
Me.ActiveControl.BorderStyle = 1
Me.ActiveControl.BorderWidth = 2
Me.ActiveControl.BorderColor = lngLaranja
Me.ActiveControl.FontWeight = 700
Me.ActiveControl.FontSize = 10
Me.ActiveControl.ForeColor = black
Me.ActiveControl.BackColor = RGB(255, 255, 204)
End Sub

Public Sub ctl_Sem_Foco()

Dim lngBranco As Long
Dim lngCinzento As Long

lngBranco = RGB(255, 255, 255)
lngCinzento = RGB(205, 200, 177)

Me.ActiveControl.BorderStyle = 1
Me.ActiveControl.BorderWidth = hairline
Me.ActiveControl.BorderColor = lngBorderColor
Me.ActiveControl.FontWeight = 400
Me.ActiveControl.FontSize = 9
Me.ActiveControl.ForeColor = black
Me.ActiveControl.BackColor = lngBranco
End Sub

alqguem sabe porque?

deculpa mas acho que achei o erro .

Me.ActiveControl.Value = ""

esse codigo estava deixando o valor em branco

Amigo dê uma olhada neste exemplo do mestre Avelino:

obrigado!!!
este exemplo serviu bem tambem.