Thay đổi màu nút bấm khi Chuột di chuyển qua nút bấm [VBA EXCEL]

Tiếp theo bài cách thay đổi màu chữ của buttom khi nhấp chuột trong userform mình hướng dẫn cách thay đổi màu buttom khi di chuột qua buttom.
Cách làm: chèn code dưới đây vào Form mà có buttom muốn thay đổi màu khi di chuột qua.

Private Sub delete_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    delete.BackColor = RGB(0, 255, 0) 'Màu xanh
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    delete.BackColor = &H8000000F 'Trả lại màu ban đầu
End Sub

Chú ý:
Thay delete bằng name của buttom mà bạn muốn thay đổi màu khi di chuột qua.
Nếu muốn làm cho nhiều buttom thì chỉ cần lặp lại đoạn code trên và thay lại name của buttom là được.
Chúc bạn thành công!