Option Explicit

Public Const SETTINGS_FILE As String = "settings_.dat"

Private Sub Form_Load()
    LoadSettings
End Sub

'========================
' Загрузка настроек
'========================
Public Sub LoadSettings()

    Dim f As Integer
    Dim line1 As String
    
    If Dir$(SETTINGS_FILE) = "" Then
        enableIcons.Value = 1
        Exit Sub
    End If
    
    f = FreeFile
    Open SETTINGS_FILE For Input As #f
    
    If Not EOF(f) Then
        Line Input #f, line1
        
        If Trim(line1) = "1" Then
            enableIcons.Value = 1
        Else
            enableIcons.Value = 0
        End If
    End If
    
    Close #f

End Sub

'========================
' Сохранение настроек
'========================
Public Sub SaveSettings()

    Dim f As Integer
    
    f = FreeFile
    Open SETTINGS_FILE For Output As #f
    
    If enableIcons.Value = 1 Then
        Print #f, "1"
    Else
        Print #f, "0"
    End If
    
    Close #f

End Sub

'========================
' Получить значение enableIcons
'========================
Public Function IconsEnabled() As Boolean

    If enableIcons.Value = 1 Then
        IconsEnabled = True
    Else
        IconsEnabled = False
    End If

End Function

'========================
' OK
'========================
Private Sub cmdOK_Click()
    SaveSettings
End Sub

'========================
' Cancel
'========================
Private Sub cmdCancel_Click()
    Unload Me
End Sub

'========================
' Reset
'========================
Private Sub cmdReset_Click()
    enableIcons.Value = 1
End Sub

'========================
' Menu Close
'========================
Private Sub mnuClose_Click()
    Unload Me
End Sub

'========================
' Реальное переключение
'========================
Private Sub enableIcons_Click()

    Form1.UpdateTreeIcons IconsEnabled

End Sub