Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With CommandButton1
.BackColor = IIf(X > 15 And X < .Width - 15 And Y > 10 And Y < .Height - 10, vbRed, &H8000000F)
End With
End Sub