CommandButton MouseMove

[breynolds0431]

Hello:

I have the following set up to change my CommandButton upon mouseover. But what I would like is for the command button to return to the original fore/back colors after mouse-off. Is this possible? I am also not using a UserModule. Just a commandbox set to be visible based on another cell's value. FYI...

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.ForeColor = RGB(191, 191, 191)
CommandButton1.BackColor = RGB(31, 78, 120)

End Sub


Thank you in advance!

 

[Domenic]

The following solution uses a hidden label to achieve the desired effect...

1) Add a label to the userform, making sure that the size of the label is greater than the commandbutton on all sides.

2) Set the BackStyle property for the label to fmBackStyleTransparent in the Properties window.

3) Remove the caption from the label in the Properties window.

4) Position the label over the commandbutton, making sure that the commandbutton is completely hidden.

5) Hide the label behind the commandbutton (right-click the label, and select 'Send Backward').

6) Place the following code in the userform code module...

Option Explicit

Dim nForeColor As Long
Dim nBackColor As Long
    
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    CommandButton1.ForeColor = RGB(191, 191, 191)
    CommandButton1.BackColor = RGB(31, 78, 120)

End Sub

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

    CommandButton1.ForeColor = nForeColor
    CommandButton1.BackColor = nBackColor
    
End Sub

Private Sub UserForm_Initialize()

    nForeColor = CommandButton1.ForeColor
    nBackColor = CommandButton1.BackColor

End Sub

Hope this helps!