Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If Shift = 3 Then
    Select Case KeyCode
      Case vbKey1:    Command1.Value = True
      Case vbKey2:    Command2.Value = True
      Case vbKey3:    Command3.Value = True
      'usw...
    End Select
    KeyCode = 0
  End If
End Sub

_______________________________________________________________
Jeder Mensch ist anders. Darum nimm jeden Menschen so wie er ist.