Button change color when mouseover

[HS1]

Hello all
Do you know how to change color of a button when the mouse is over it (like
a button in manu bar can change its color in a website) in VB.net
Thank you
S.Hoa

[Cor Ligthert]

Hoa,

Have a look at this sample of my it does two buttons, I mostly use it to
show a control array.

I hope this helps?

Cor
\\\needs two buttons and a label on a form
Private Sub Form1_Load(ByVa l sender As Object, _
ByVal e As System.EventArg s) Handles MyBase.Load
Dim btnArea As Button() = New Button() {Button1, Button2}
For Each btn As Button In btnArea
AddHandler btn.MouseLeave, AddressOf Button_MouseLea ve
AddHandler btn.MouseEnter, AddressOf Button_MouseEnt er
Next
End Sub
Private Sub Button_MouseLea ve(ByVal sender As Object, _
ByVal e As System.EventArg s)
DirectCast(send er, Button).BackCol or = Color.Black
Me.Label1.Text = ""
End Sub
Private Sub Button_MouseEnt er(ByVal sender As Object, _
ByVal e As System.EventArg s)
DirectCast(send er, Button).BackCol or = Color.Red
Me.Label1.Text = DirectCast(send er, Button).Name
End Sub
End Class
///

[S.Hoa]

Thanks
That is what I am looking for

"Cor Ligthert" <no**********@p lanet.nl> wrote in message
news:eA******** ******@TK2MSFTN GP11.phx.gbl...

Hoa,

Have a look at this sample of my it does two buttons, I mostly use it to
show a control array.

I hope this helps?

Cor
\\\needs two buttons and a label on a form
Private Sub Form1_Load(ByVa l sender As Object, _
ByVal e As System.EventArg s) Handles MyBase.Load
Dim btnArea As Button() = New Button() {Button1, Button2}
For Each btn As Button In btnArea
AddHandler btn.MouseLeave, AddressOf Button_MouseLea ve
AddHandler btn.MouseEnter, AddressOf Button_MouseEnt er
Next
End Sub
Private Sub Button_MouseLea ve(ByVal sender As Object, _
ByVal e As System.EventArg s)
DirectCast(send er, Button).BackCol or = Color.Black
Me.Label1.Text = ""
End Sub
Private Sub Button_MouseEnt er(ByVal sender As Object, _
ByVal e As System.EventArg s)
DirectCast(send er, Button).BackCol or = Color.Red
Me.Label1.Text = DirectCast(send er, Button).Name
End Sub
End Class
///