Code:
Option Explicit
'add a checkbox to a form and set it's style to graphical

Private Sub Check1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Check1.BackColor = vbBlue
    Check1.ForeColor = vbYellow
End Sub


Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Check1.BackColor = vbRed
    Check1.ForeColor = vbWhite
End Sub