keypresses som registreres konstant

hejsa
jeg er ved at lave en slot-maskine, men jeghar lige et lille problem.

følgende kode gør at man, hvis checkboksen er markeret, kan trykke henholdsvis 1,2 og 3 for at hold på hjulene.
----------
Private Sub Check1_KeyPress(KeyAscii As Integer)
If KeyAscii = 49 Then
    If Check1.Value = 1 Then
    Check1.Value = 0
    Else
    Check1.Value = 1
    End If
  End If
End Sub

Private Sub Check2_KeyPress(KeyAscii As Integer)
If KeyAscii = 50 Then
    If Check2.Value = 1 Then
    Check2.Value = 0
    Else
    Check2.Value = 1
    End If
  End If
End Sub

Private Sub Check3_KeyPress(KeyAscii As Integer)
If KeyAscii = 51 Then
    If Check3.Value = 1 Then
    Check3.Value = 0
    Else
    Check3.Value = 1
    End If
  End If
End Sub
---------------

dette er dog ikke hvad jeg ønsker.. jeg ønsker at man bare kan trykke 1,2 eller 3, ligegyldigt hvor hvilken boks elelr knap man har markeret.. er der nogen der kan hjælpe med dette ??

hilsn GuyB