Public Function LoadInRegistrAllSettingForForm(frm As Form)
  If Pbl_Progr_zapushenaDrugiyRaz = False Then Exit Function
  Dim Elem As Object
  Dim s As String
  Dim M As String
  Dim z As String
  For Each Elem In frm.Controls
  If IsObject(Elem) = True Then
   s = TypeName(Elem)
   M = Elem.Tag
    If M <> "" Then
      If s = "TextBox" Or s = "ComboBox" Then
        z = GetSetting(VB.App.Title, "Настройка программы", M)
        Elem.Text = z
      ElseIf s = "CheckBox" Then
        z = GetSetting(VB.App.Title, "Настройка программы", M)
         If z = "Включено" Or z = "Да" Then
           Elem.value =  1 
         Else
           Elem.value =  0 
         End If
      End If
    End If
  End If
  Next
End Function

Public Function SaveInRegistrAllSetting(frm As Form)
  Dim Elem As Object
  Dim s As String
  Dim M As String
  Dim z As String
  For Each Elem In frm.Controls
   If IsObject(Elem) = True Then
    s = TypeName(Elem)
    M = Elem.Tag
      If M <> "" Then
        If s = "TextBox" Or s = "ComboBox" Then
          z = Elem.Text
            SaveSetting VB.App.Title, "Настройка программы", M, z
        ElseIf s = "CheckBox" Then
          z = IIf(Elem.value =  0 , "Выключено", "Включено")
            SaveSetting VB.App.Title, "Настройка программы", M, z
        End If
      End If
   End If
  Next
  SaveSetting VB.App.Title, "Настройка программы", "Запущено не первый раз", "Да"
  Pbl_Progr_zapushenaDrugiyRaz = True
End Function