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