Private Sub TextBox1_KeyDown(ByVal sender As Object, _
  ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
 
  If e.KeyCode = Keys.KeyCode.F1 Then
    e.Handled = True
    MsgBox("F1")
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de