[vbnet]

.....

كود :

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    ' يمكن الاستغناء عن هذا السطر بتغيير هذه الخاصية من خصائص الفورم
    Me.KeyPreview = True

End Sub


Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles Me.KeyDown
    Select Case e.KeyCode
        Case Keys.F1
            MsgBox("تم الضغط على F1")

        Case Keys.F2
            MsgBox("تم الضغط على F2")

        Case Keys.F3
            MsgBox("تم الضغط على F3")

    End Select
End Sub

.....