Code is
Expand|Select|Wrap|Line Numbers
- 'The forms Key Preview property must be set to Yes
- Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
- Select Case KeyCode
- Case vbKeyDelete
- MsgBox "The Delete key was Pressed"
- KeyCode = 0
- Case vbKeyF1
- MsgBox "The F1 key was Pressed"
- KeyCode = 0
- Case vbKeyF2
- MsgBox "The F2 key was Pressed"
- KeyCode = 0
- Case Else
- 'MsgBox "No match!" 'testing
- End Select
- End Sub
Is it possible
Thank you in advance