MS Bugfixing

app/DD_PM_WINDREAM/frmValidator.vb

@@ -60,6 +60,8 @@ Public Class frmValidator
     Private DTCONTROLS As DataTable
     Private FormLoaded As Boolean = False
 
+    Private ControlHandleStarted As Boolean = False
+
     <DllImport("user32.dll", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)>
     Public Shared Function SetForegroundWindow(ByVal hwnd As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
     End Function
@@ -876,6 +878,10 @@ Public Class frmValidator
         box.BackColor = Color.White
     End Sub
     Public Sub OnTextBoxKeyUp(sender As Object, e As KeyEventArgs)
+        If ControlHandleStarted = True Then
+            ControlHandleStarted = False
+            Exit Sub
+        End If
         Dim box As TextBox = sender
         If box.Text <> String.Empty And me_closing = False And _Indexe_Loaded = True Then
 
@@ -942,6 +948,7 @@ Public Class frmValidator
                     ' Abschluss()
                 Else
                     SendKeys.Send("{TAB}")
+                    ControlHandleStarted = True
                 End If
             End If
         End If
@@ -1057,6 +1064,7 @@ Public Class frmValidator
                                 _dependingControl_in_action = False
                             End Try
                             SendKeys.Send("{TAB}")
+                            ControlHandleStarted = True
                         End If
                     End If
                 End If
@@ -1134,12 +1142,15 @@ Public Class frmValidator
                             End Try
                         Next
                     End If
+
                 Catch ex As Exception
                     LOGGER.Error(ex)
                     LOGGER.Info("Unexpected Error in Eventhandler Variable SQL Result ComboBox - ERROR: " & ex.Message)
                 End Try
 
                 SendKeys.Send("{TAB}")
+                ControlHandleStarted = True
+
             End If
         End If
     End Sub
@@ -1194,6 +1205,7 @@ Public Class frmValidator
                 ' Abschluss()
             Else
                 SendKeys.Send("{TAB}")
+                ControlHandleStarted = True
             End If
         End If
     End Sub