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

mfg
jan
End Sub

ECHO. 
ECHO.
ECHO     K     Eine Aktion
ECHO     A     Noch 'ne Aktion
ECHO     S     Und schon wieder Passiert was
ECHO     X     Hopla, auch hier geschieht was
ECHO     F     Und schon wieder 'ne Aktion
ECHO     V     Auch nicht übel
ECHO     D     Ist doch gar nicht schwer
ECHO     G     G drücken? Warum nicht
ECHO     P     Pah, mach ich doch
ECHO     N     Mal sehn was Passiert
ECHO     R     Der Text geht mir aus
ECHO     L     Spot aus, Licht an!
ECHO     E     Eben 'darum solls ja sein
ECHO     9     Nun reicht es aber
ECHO.
ECHO.
CHOICE     /c:KASXFVDGPNRLE9      Wähle eine Option... 
IF ERRORLEVEL 14 GOTO HST
IF ERRORLEVEL 13 GOTO EDI
IF ERRORLEVEL 12 GOTO LESE
IF ERRORLEVEL 11 GOTO ER
IF ERRORLEVEL 10 GOTO NTF
IF ERRORLEVEL 9 GOTO PQD
IF ERRORLEVEL 8 GOTO DW
IF ERRORLEVEL 7 GOTO DC
IF ERRORLEVEL 6 GOTO VOLL
IF ERRORLEVEL 5 GOTO FORM
IF ERRORLEVEL 4 GOTO XFD
IF ERRORLEVEL 3 GOTO S0K
IF ERRORLEVEL 2 GOTO ASTR
IF ERRORLEVEL 1 GOTO KE

ECHO. 
ECHO.
:menu
cls
ECHO     Willkommen zum Demostartmenü
Echo.
ECHO     A     Aktion 1
ECHO     B     Aktion 2
ECHO     E     Beenden
ECHO.
ECHO.
CHOICE     /c:EBA      Wähle eine Option... 

IF ERRORLEVEL 3 GOTO aktion1
IF ERRORLEVEL 2 GOTO aktion2
IF ERRORLEVEL 1 GOTO end

:aktion1
[weitere Befehle]
goto menu

:aktion2
[weitere Befehle]
goto menu

:end
echo ...und Tschüss!

CHOICE     /c:EBA /t:E,10      Wähle eine Option ...oder automatisches Beenden nach 10 Sekunden!