si ton bouton s'appelle Cmd1 :
Private Sub Cmd1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Cmd1.BackColor = vbRed
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Cmd1.BackColor = &H8000000F
End Sub
ensuite tu peux jouer sur d'autres choses que la couleur du bouton (BackColor) : la police d'écriture (Font), la couleur de l'écriture (Forecolor), le curseur (MousePointer) ...