Something

Private Sub cmdKeys_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    Select Case Index
        Case 8: cmdKeys(8).BackColor = vbWhite
    End Select
End Sub