ZooFlow: merge and fix key events

GUIs.ZooFlow/frmFlowForm.vb

@@ -48,21 +48,14 @@ Public Class frmFlowForm
 
         ' === Register Events ===
 
-        AddHandler MouseClick, New MouseEventHandler(AddressOf Form_MouseClick)
-        AddHandler MouseMove, New MouseEventHandler(AddressOf Form_MouseMove)
-        AddHandler KeyUp, AddressOf Form_KeyUp
+        AddHandler MouseClick, AddressOf Form_MouseClick
+        AddHandler MouseMove, AddressOf Form_MouseMove
+        AddHandler KeyDown, AddressOf Form_KeyDown
 
         ' === Register As Event Listener ===
         EventBus.Instance.Register(Me)
 
         ' === TESTING Actions ===
-        Dim oButton As New Button With {
-            .Location = New Point(10, 10),
-            .Size = New Size(10, 10),
-            .Text = "yes"
-        }
-        Controls.Add(oButton)
-
         Dim oSQL = $"SELECT * FROM [dbo].[FNIDB_GET_SEARCH_PROFILES] ({My.Application.User.UserId},'{My.Application.User.Language}')"
         Dim oDT As DataTable = My.Database_IDB.GetDatatable(oSQL)
         SucheToolStripMenuItem.Visible = False
@@ -104,7 +97,7 @@ Public Class frmFlowForm
         End If
     End Sub
 
-    Private Sub Form_KeyUp(ByVal sender As Object, ByVal e As KeyEventArgs)
+    Private Sub Form_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs)
         If e.KeyCode = Keys.Escape Then
             If ESCHitCount > 0 Then
                 Dim result As DialogResult = MessageBox.Show("Exit Zooflow", "Please Varify", MessageBoxButtons.YesNo)