TextBox Color Change

[Lenny_821]

Hi All,

I want to make my TextBoxes a little more fancy.

What code is best to use when I move my mouse over the TextBox - it changes color - and when the mouse moves off it changes back to the original color?

I have tried the Class Module, but I somehow can't figure it out.

Hope you got the anwser

Lenny

[Roman]

Hi Lenny,
I hope you are talking about Userform textboxes. Then you can use this
in the Form code:

Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
If UserForm1.TextBox1.Tag =3D 0 Then
UserForm1.TextBox1.BackColor =3D &H80FF& 'the changed color
UserForm1.TextBox1.Tag =3D 1
End If

End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
If UserForm1.TextBox1.Tag =3D 1 Then
UserForm1.TextBox1.BackColor =3D &HFFFFFF 'the regular color
UserForm1.TextBox1.Tag =3D 0
End If
End Sub

If you want to change color of the Textbox from Drawing Toolbar then I
can=B4t help you.

[Roman]

Hi Lenny,
I forgot one thing:
set the textbox tag to 0 before you run the code.

[Lenny_821]

Hi Roman,

Thanks for your help

Lenny