Cara buat effek warna pada tombol vba

[@belajarexcel100]

ini kodingnya gaes
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With CommandButton1
.BackColor = vbGreen
.ForeColor = vbBlack
End With
End Sub
Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With CommandButton2
.BackColor = vbGreen
.ForeColor = vbBlack
End With
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With CommandButton1
.BackColor = &H8000000F
.ForeColor = &H8000000D
End With
With CommandButton2
.BackColor = &H8000000F
.ForeColor = &H8000000D
End With
End Sub