Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF1
KeyCode = 0
MsgBox "The F1 key was Pressed"
Case vbKeyF2
KeyCode = 0
MsgBox "The F2 key was Pressed"
Case vbKeyF11
KeyCode = 0
MsgBox "The F11 key was Pressed"
Case Else
'MsgBox "No match!" 'testing
End Select
End Sub