Creating a mouse hover event

[Coffee]

hi, i am trying to make the textbox change color when mouse is run over the button and then go back to the default color.. at the moment it changes color to red when mouse is over, but it does not change back. does anyone know how to do this?

Code




Private Sub Text11_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Me.Text11.BackColor = vbRed

End Sub


Private Sub Form2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Me.Text11.BackColor = vbBlack

End Sub

[Coffee]

Dont worry, problem solved. instead of Form2 it needs to be Detail.

Working Code

Private Sub Text11_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Me.Text11.BackColor = vbRed

End Sub


Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Me.Text11.BackColor = vbBlack

End Sub