DHCP Fix

2021-07-01 08:39:14 +02:00
parent 1870307007
commit 67f2a10607
15 changed files with 247 additions and 52 deletions
--- a/Dokumentation/frmLeer.vb
+++ b/Dokumentation/frmLeer.vb
@@ -2,4 +2,9 @@
    Private Sub frmLeer_Load(sender As Object, e As EventArgs) Handles Me.Load
        '  Me.Location = New Point(MousePosition.X - Me.Size.Width / 2, MousePosition.Y - Me.Size.Height / 2)
    End Sub
+
+    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
+        If e.KeyCode = Keys.Escape Then Me.Close()
+    End Sub
+
 End Class