Am einfachsten ist, das hier einzufügen:
Sub New()
Me.KeyPreview = True
End Sub
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
End Sub
Sollte funktionieren (ist aus dem Kopf geschreiben).
Mit freundlichen Grüssen, Stefan Wittwer