Form - Tasti Funzionali

Visual # per inserire i tasti funzionali dentro ad una procedura
inserire dentro alla form_load
keypreview = True
e poi assegnare il valore dei tasti funzionali:
Private Sub form_keydown(keycode As integer, shift As Integer)
Select Case keycode
Case vbkeyf1: Call mnuinserisci_click 'msgbox "f1 visualizza informazioni."
Case vbkeyf2: msgbox "f2 copia il testo."
Case vbkeyf3: msgbox "f3 incolla il testo."
Case vbkeyf4: msgbox "f4 formatta il testo."
Case vbkeyescape: beep: esci = True

End Select
End Sub