Private Sub Form_KeyDown (KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyF1 MsgBox "You pressed the F1 key." Case vbKeyHome MsgBox "You pressed the Home key." Case vbKeyTab MsgBox "You pressed the Tab key." End Select End Sub