Private Sub commandbutton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With CommandButton1
.ForeColor = IIf(X > 15 And X < .Width + 15 And Y > 15 And Y < .Height + 15, &HFFFFFF, &H80000012)
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
.ForeColor = IIf(X > 15 And X < .Width + 15 And Y > 15 And Y < .Height + 15, &H80000012, &HFFFFFF)
End With
End Sub