Select all text with mouseover effect... how?[Resolved]

[EJ12N]

Hi

i just saw an effect in an application that i would like to do it
the effect is... you have a textbox and if you move the mouseover the textbox the text highlights (select all) itself and if you move the mouse out of the textbox the text goes back to normal

ok i got this easy part

Private Sub txtID_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
With txtID
.SelStart = 0
.SelLength = Len(.Text)
.SetFocus
End With
End Sub

that selects all the text in the textbox when user moves the mouse over but when i move the mouse out of the textbox is still highlighted any way to get what i want...

Thank you very much to whoever helps