hover-button

Make An Hover Button

Make An Hover Button

This Button will change his color when the mouse pointer is on it

Preparations

Add 1 Command Button (named Command1)
Set the Command Button Style property to 1 - Graphical.

Module Code

Public Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As
Long
Public Declare Function ReleaseCapture Lib "user32" () As Long

Form Code

Public Sub sysControlHighLight(ctl As Control, X As Single, _
Y As Single, OriginalBackColor As Long, NewBackColor As Long)
Dim HitTest As Long
On Error Resume Next
'test for control hwnd, if error simply exit
HitTest = ctl.hwnd
If Err.Number <> 0 Then Exit Sub
With ctl
If (X < 0) Or (Y < 0) Or (X > .Width) Or (Y > .Height) Then
ReleaseCapture
.BackColor = OriginalBackColor
Else
SetCapture .hwnd
.BackColor = NewBackColor
End If
End With
On Error GoTo 0
End Sub

Private Sub Command1_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
'replace the 'Command1' below and above with your Command Button name
'replace the 'vbBlue' below with the initial button's color
'replace the 'vbRed' below with the color of the button when the mouse is
on it.
sysControlHighLight Command1, X, Y, vbBlue, vbRed
End Sub

Private Sub Form_Load()
'replace the 'vbBlue' below with your preferred button's color
Command1.BackColor = vbBlue
End Sub