MS FlowSearch, Ini tLanguageID

GUIs.ZooFlow/frmFlowForm.vb

@@ -395,6 +395,10 @@ Public Class frmFlowForm
         Logger.Debug("OnEvent called!")
     End Sub
     Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
+
+        Open_FlowSearch()
+    End Sub
+    Sub Open_FlowSearch()
         Cursor = Cursors.WaitCursor
         If TheFormIsAlreadyLoaded("frmFlowSearch") Then
             Cursor = Cursors.Default
@@ -408,29 +412,31 @@ Public Class frmFlowForm
         Next
         If oSQLFlowSearch <> String.Empty Then
             oSQLFlowSearch = oSQLFlowSearch.Replace("@USER_ID", My.Application.User.UserId)
+            oSQLFlowSearch = oSQLFlowSearch.Replace("@LANGUAGE_ID", My.Application.User.LanguageID)
+            oSQLFlowSearch = oSQLFlowSearch.Replace("@LANGUAGE", My.Application.User.Language)
             Dim oForm As New frmFlowSearch(oSQLFlowSearch)
             oForm.Show()
             oForm.BringToFront()
         End If
 
         Cursor = Cursors.Default
-
     End Sub
 
     Private Sub PictureBoxSearch_Click(sender As Object, e As EventArgs) Handles PictureBoxSearch.Click
-        Cursor = Cursors.WaitCursor
-        If TheFormIsAlreadyLoaded("frmSearchStart") Then
-            Cursor = Cursors.Default
-            Exit Sub
-        End If
+        Open_FlowSearch()
+        'Cursor = Cursors.WaitCursor
+        'If TheFormIsAlreadyLoaded("frmSearchStart") Then
+        '    Cursor = Cursors.Default
+        '    Exit Sub
+        'End If
 
 
-        Dim oForm As New frmSearchStart(DTIDB_SEARCHES) 'frmFlowSearch(osql) 
-        oForm.Show()
-        Cursor = Cursors.Default
-        If TimerCheckActiveForms.Enabled = False Then
-            TimerCheckActiveForms.Enabled = True
-        End If
+        'Dim oForm As New frmSearchStart(DTIDB_SEARCHES) 'frmFlowSearch(osql) 
+        'oForm.Show()
+        'Cursor = Cursors.Default
+        'If TimerCheckActiveForms.Enabled = False Then
+        '    TimerCheckActiveForms.Enabled = True
+        'End If
     End Sub
     Private Sub PictureBoxSearch_MouseEnter(sender As Object, e As EventArgs) Handles PictureBoxSearch.MouseEnter
         PictureBoxSearch.Image = My.Resources._2_LUPE_AKTIV_ZOO