Try:
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
Dim contr As Control
For Each contr In UserForm1.Controls
If TypeName(contr) = "CommandButton" And Not contr.BackColor = &HE0E0E0 Then
contr.BackColor = &HE0E0E0
contr.ForeColor = &H800000
DoEvents
End If
Next
End Sub
I am not sure why it seems to be picking up mouse moves even when the mouse is not moving, but the event seems to keep firing. Also, CTRL + Pause doesn't seem to catch, and as none of the buttons kill the form, you have to use ALT + Spacebar & C to dismiss the form.
Mark