Press F1 in Textbox1 to do this

[Edneeis]

Alternatively you could just use:

Public Sub capKeyDown_KeyDown(ByVal sender As Object, _
        ByVal e As KeyEventArgs) [b]Handles TextBox1.Keydown,Textbox2.KeyDown[/b]
 
        Select Case e.KeyCode
            Case Keys.F1
                If sender Is TextBox1 Then
                    MsgBox("F1 in Textbox1 was pressed")
                ElseIf sender Is TextBox2 Then
                    MsgBox("F1 in Textbox2 was pressed")
                End If
            Case Keys.F2
                If sender Is TextBox1 Then
                    MsgBox("F2 in Textbox1 was pressed")
                ElseIf sender Is TextBox2 Then
                    MsgBox("F2 in textbox2 was pressed")
                End If
        End Select
 
    End Sub