White Owl - Да не существует такого понятия как "синхронизации форм"!

MasterZiv - Нет никаких "механизмов синхронизации форм" и их никто не использует.

 посмотрите на форуме по Delphi. Там этот вопрос всплывал много раз, и давались решения. 

Зачем десять форм?! Не проще сделать одну форму с десятью выпадающими списками?

пользователь просто закрывал окно и все его данные сохранялись в БД

        ''*****************************************************************
        ''мапирование товарных позиций ************************************
        NextStep.Invoke(StepOfImport.MapTovar)
        If CurrentImportRow.Cells(CType(StepOfImport.MapTovar, Integer)).Value Then
            Dim fr5 As New ImportContents.frTovarMap
            fr5.MdiParent = CurrentImportRow.DataGridView.Parent.TopLevelControl
            fr5.Show()
        End If

        Dim URL As String = CurrentImportRow.Cells(CType(StepOfImport.URL, Integer)).Value
        If URL = "" Then Exit Sub
        ''Try
        My.Application.DoEvents()
        ''Cursor.Current = Cursors.WaitCursor

        ''******************************************************************
        ''скачиваем ********************************************************
        NextStep.Invoke(StepOfImport.Web)
        Dim ZipXLS As Byte() = GetWebContents(URL)
        If ZipXLS Is Nothing Then Exit Sub
        ''Dim ZipXLS As Byte() = ArrLoadFromFile("c:\1.zip") 'отладка чтоб сайт не дергать

        '*****************************************************************
        ''сохраняем и распаковываем файл **********************************
        NextStep.Invoke(StepOfImport.UnZip)
        Dim FileName As String = URL
        Dim InvalidFileChars As Char() = System.IO.Path.GetInvalidFileNameChars()
        Dim One As Char ''удаляем неверные значки
        For Each One In InvalidFileChars
            FileName = Replace(FileName, One, "_")
        Next
        FileName = System.IO.Path.GetTempPath & FileName
        ArrSaveToFile(ZipXLS, ZipXLS.Length, FileName)
        ''
        UnZipWinFolder(FileName, System.IO.Path.GetTempPath)

        ''*****************************************************************
        ''просмотр скачанного XLS-файла ***********************************
        If CurrentImportRow.Cells(CType(StepOfImport.LookXLS, Integer)).Value Then
            System.Diagnostics.Process.Start(New System.Diagnostics.ProcessStartInfo(System.IO.Path.GetTempPath))
        End If

        ''*****************************************************************
        ''грузим в Excel, перед этим очищаем таблу ************************
        NextStep.Invoke(StepOfImport.XLS_SQL)
        CN = New System.Data.SqlClient.SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings("ImportContents.Settings.PriceConnectionString").ConnectionString.ToString)
        CN.Open()
        CMD = New System.Data.SqlClient.SqlCommand("delete from BXDNew", CN)
        CMD.ExecuteNonQuery()
        CN.Close() : CMD = Nothing
        ''
        Dim XLS As New Microsoft.Office.Interop.Excel.Application
        If XLS Is Nothing Then Exit Sub
        Dim Page = XLS.Workbooks.Open(System.IO.Path.GetTempPath & "\" & "BXD.XLS")
        ''
        Load_MgXLS_toSQL(XLS, "BXD", StepRow, NewLine)
        ''
        ''закрываем Excel и создаем экземпляры Dataset
        XLS.Workbooks.Close()
        XLS.Quit()
        XLS = Nothing
        Dim NewDataSet As New SHDataSet
        Dim NewTableAdapter As New ImportContents.SHDataSetTableAdapters.BXDTableAdapter
        Dim NewQueries As New ImportContents.SHDataSetTableAdapters.QueriesTableAdapter

        ''*****************************************************************
        ''загружаем контент и рисунок *************************************
        NextStep.Invoke(StepOfImport.DownloadContents)
        Import_Content(NewDataSet, NewTableAdapter, StepRow, NewLine)

        ''*****************************************************************
        ''удаляем рисунок - "Рисунок недоступен" **************************
        NextStep.Invoke(StepOfImport.DeleteBlankImage)
        Call DeleteBlankImage("BXDNew")

        ''****************************************************************
        ''просмотр скачанного контента - факультативно *********************
        NextStep.Invoke(StepOfImport.LookContents)
        If CurrentImportRow.Cells(CType(StepOfImport.LookContents, Integer)).Value Then
            Dim fr5a As New ImportContents.frMgLookContents
            fr5a.MdiParent = CurrentImportRow.DataGridView.Parent.TopLevelControl
            fr5a.Show()
        End If

        ''*****************************************************************
        ''распарсиваем скачанный контент **********************************
        NextStep.Invoke(StepOfImport.ParseContents)
        Parse_Content(NewDataSet, NewTableAdapter, NewQueries, StepRow, NewLine)


        ''*****************************************************************
        ''сохранение нового прайса .NEW в старый  ************
        NextStep.Invoke(StepOfImport.SavePrice)
        CN = New System.Data.SqlClient.SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings("ImportContents.Settings.PriceConnectionString").ConnectionString.ToString)
        CN.Open()
        CMD = New System.Data.SqlClient.SqlCommand("SaveToMgPrice", CN)
        CMD.CommandType = Data.CommandType.StoredProcedure
        CMD.ExecuteNonQuery()
        CN.Close() : CMD = Nothing

        ''*****************************************************************
        ''сохранение нового прайса .NEW в мой прайс ***********************
        NextStep.Invoke(StepOfImport.SavePrice)
        CN = New System.Data.SqlClient.SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings("ImportContents.Settings.PriceConnectionString").ConnectionString.ToString)
        CN.Open()
        CMD = New System.Data.SqlClient.SqlCommand("SaveToSHPrice", CN)
        CMD.CommandType = Data.CommandType.StoredProcedure
        CMD.ExecuteNonQuery()
        CN.Close() : CMD = Nothing


        ''*****************************************************************
        ''мапирование групп ***********************************************
        NextStep.Invoke(StepOfImport.MapGroup)
        CN = New System.Data.SqlClient.SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings("ImportContents.Settings.PriceConnectionString").ConnectionString.ToString)
        CN.Open()
        CMD = New System.Data.SqlClient.SqlCommand("SaveGroup", CN)
        CMD.CommandType = Data.CommandType.StoredProcedure
        CMD.ExecuteNonQuery()
        CN.Close() : CMD = Nothing


        ''*****************************************************************
        ''докачиваем контент в ссылках ************************************
        NextStep.Invoke(StepOfImport.DowloadRefContents)
        ''это неверно - очень долго - надо просто будет сделать правильный отбор в следующие два шага
        CN = New System.Data.SqlClient.SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings("ImportContents.Settings.PriceConnectionString").ConnectionString.ToString)
        CN.Open()
        CMD = New System.Data.SqlClient.SqlCommand("CopyRefPageContents", CN)
        CMD.CommandType = Data.CommandType.StoredProcedure
        CMD.ExecuteNonQuery()
        CN.Close() : CMD = Nothing
        ''теперь докачиваем ранее не встречавшиеся странички и рисунки
        Dim DS_NewValue As New ImportContents.MgValueDS
        Dim TA_NewValue As New ImportContents.MgValueDSTableAdapters.MgValueTabTableAdapter
        Dim QA_NewValue As New ImportContents.MgValueDSTableAdapters.QueriesTableAdapter
        Call DownLoadRefPage(DS_NewValue, TA_NewValue, QA_NewValue)
        ''удаляем картинку "Рисунок недоступен"
        Call DeleteBlankImage("MgValueNew")


        ''*****************************************************************
        ''расставляем указатели в ссылках вручную *************************
        NextStep.Invoke(StepOfImport.RefLinkManual)
        ''насколько это корректно?
        If CurrentImportRow.Cells(CType(StepOfImport.RefLinkManual, Integer)).Value Then
            Dim fr6 As New ImportContents.frMgRefLink
            fr6.MdiParent = CurrentImportRow.DataGridView.Parent.TopLevelControl
            fr6.Show()
        End If