Call SaveInRegistrSelectedSettingForForm(FrmNstr04, "")

Public Function SaveInRegistrSelectedSettingForForm(Frm As Form, Rozdil As String)
  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 Left(m, 1) = "*" Then
        m = Mid(m, 2)
        If s = "TextBox" Or s = "ComboBox" Then
          z = Elem.text
            SaveSetting VB.App.Title, Frm.TAG & Rozdil, m, z
        ElseIf s = "CheckBox" Then
          z = IIf(Elem.value = 0, "Виключено", "Включено")
            SaveSetting VB.App.Title, Frm.TAG & Rozdil, m, z
        ElseIf s = "OptionButton" Then
          z = IIf(Elem.value = 0, "Не вибрано", "Вибрано")
            SaveSetting VB.App.Title, Frm.TAG & Rozdil, m, z
        End If
      End If
   End If
  Next
  z = GetSetting(VB.App.Title, Frm.TAG & Rozdil, "Запуск перший раз")
  If z = "" Then SaveSetting VB.App.Title, Frm.TAG & Rozdil, "Запуск перший раз", "Yes"
End Function

Public Function LoadInRegistrSelectedSettingForForm(Frm As Form, Rozdil As String) As Boolean
  Dim Elem As Object
  Dim s As String
  Dim m As String
  Dim z As String
  z = GetSetting(VB.App.Title, Frm.TAG & Rozdil, "Запуск перший раз")
  If z = "Yes" Then LoadInRegistrSelectedSettingForForm = True
  
  For Each Elem In Frm.Controls
  If IsObject(Elem) = True Then
   s = TypeName(Elem)
   m = Elem.TAG
    If Left(m, 1) = "*" Then                                            
      m = Mid(m, 2)
      'Debug.Print m & "     " & s
      z = GetSetting(VB.App.Title, Frm.TAG & Rozdil, m)
      If s = "TextBox" Or s = "ComboBox" Then
        Elem.text = z
      ElseIf s = "CheckBox" Then
         If z = "Включено" Or z = "Так" Then
           Elem.value = 1
         Else
           Elem.value = 0
         End If
      ElseIf s = "OptionButton" Then
        If z = "Вибрано" Then Elem.value = 1
      End If
    End If
  End If
  Next
End Function

Public Function SaveInRegistrAllSetting(Frm As Form, NameGroup As String) ' якщо NameGroup не написано тоді береться назву вікна
If NameGroup = "" Then NameGroup = VB.App.Title
  Dim Elem As Object
  Dim s As String
  Dim m As String
  Dim z As String
  Dim i As Long
  Dim mx As Long
  Dim plmax As Long
  Dim ipl As Long
  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 NameGroup, "Налаштування", m, z
        ElseIf s = "CheckBox" Then
          z = IIf(Elem.value = 0, "Виключено", "Включено")
            SaveSetting NameGroup, "Налаштування", m, z
        ElseIf s = "ListView" Then
         z = CStr(Elem.ListItems.Count)
         SaveSetting NameGroup, "Налаштування", m & ":max", z
         For i = 1 To Elem.ListItems.Count
          z = Elem.ListItems.Item(i).text
          SaveSetting NameGroup, "Налаштування", m & ":p=" & Right("000" & CStr(i), 4), z
          
          z = CStr(Elem.ListItems.Item(i).ListSubItems.Count)
          SaveSetting NameGroup, "Налаштування", m & ":pmax=" & Right("000" & CStr(i), 4), z
          'Elem.ListItems.Item(i).ListSubItems.Count
           For ipl = 1 To Elem.ListItems.Item(i).ListSubItems.Count
             z = Elem.ListItems.Item(i).ListSubItems(ipl).text
             SaveSetting NameGroup, "Налаштування", m & ":r=" & CStr(ipl) & ":p=" & Right("000" & CStr(i), 4), z
           Next
          If Elem.Checkboxes Then
            z = IIf(Elem.ListItems.Item(i).Checked, "Включено", "Виключено")
            SaveSetting NameGroup, "Налаштування", m & ":ch=" & Right("000" & CStr(i), 4), z
          End If
         Next
        End If
      End If
   End If
  Next
  SaveSetting "Запуск", "Налаштування", "Запущено не перший раз", "Так"
  Pbl_Progr_zapushenaDrugiyRaz = True
End Function