Frage
Antwort
Zuerst natürlich in der Form (Designer) KeyPreview auf True setzen, dann im Code das hier einfügen:
Sub EndeAufTastendruck(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles Me.KeyPress
If e.KeyCode = Keys.P Then Me.Close() ' Oder für ein sofortiges Beenden der gesamten Anwendung anstelle von Me.Close() die drei Buchstaben «End» verwenden. End If