Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles MyBase.Load
	Me.KeyPreview = True
End Sub
 
Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp
If e.KeyCode = Keys.F3 Then
	MessageBox.Show("Die F3-Taste wurde gedrückt und wieder losgelassen.")
End If
End Sub

I'm an idealist. I don't know where I'm going, but I'm on my way.
- Carl Sandburg