MS UserItemsReplace

app/DD-Record-Organizer/ModuleHelperMethods.vb

@@ -267,12 +267,26 @@ Module ModuleHelperMethods
     Public Sub OpenFormConstructor(id As Integer, Optional recordId As Integer = -1)
         Try
             If CURRENT_OPEN_CONSTRUCTOR_FORMS.Contains(id) Then
+                Dim frm1 As New frmConstructor_Main
+                frm1.Tag = id
+                Dim frmCollection = System.Windows.Forms.Application.OpenForms
+                For i As Int16 = 0I To frmCollection.Count - 1I
+                    If frmCollection.Item(i).Tag = id Then
+                        frmCollection.Item(i).Activate()
+                        frmCollection.Item(i).BringToFront()
+                        If frmCollection.Item(i).WindowState = FormWindowState.Minimized Then
+                            frmCollection.Item(i).WindowState = FormWindowState.Normal
+                        End If
+                        Exit Sub
+                    End If
+                Next i
                 Exit Sub
             End If
 
             CURRENT_CONSTRUCTOR_ID = id
             CURRENT_OPEN_CONSTRUCTOR_FORMS.Add(id)
             Dim frm As New frmConstructor_Main()
+            frm.Tag = id
             ' frm = frmForm_Constructor.Instance()
 
             Dim activeChild As Form = MAIN_FORM.ActiveMdiChild