SaveSetting App.EXEName, "checkboxes or anything you want", "MyCheckbox", text1.Text
     
    ' Here I have the default for the checkbox set to be unchecked. You may
    ' want to change that to vbChecked or even vbGrayed
    Check1.Value = GetSetting (App.EXEName, "checkboxes or anything you want", "MyCheckbox", vbUnchecked)
    
    
    ============================================
    
    
        Option Explicit
     
    Private Sub Form_Load()
     
        chkA.Value = GetSetting("TestSSvr", "checkboxes\frmdvan", "chkA", vbUnchecked)
        
    End Sub
     
     
    Private Sub Form_Unload(Cancel As Integer)
     
        SaveSetting "TestSSvr", "checkboxes\frmdvan", "chkA", chkA.Value
     
    End Sub
    
    ================================
    
    You can use this information for checkboxes too ...just use you'r mind...

    This is how i did it ...

     There is a TextBox called Text1 on my form and it is invisible ... and there is a checkbox and a timer         
     (value = 10)

      And this is the code :



     Private Sub Check1_Click()
    If Check1.Value = 0 Then Text1.Text = "UnChecked"
     If Check1.Value = 1 Then Text1.Text = "Checked"
     End Sub

     Private Sub Form_Load()
    Text1.Text = GetSetting(App.EXEName, "textboxes", "text1", "")

    End Sub

    Private Sub Form_Unload(Cancel As Integer)
    SaveSetting App.EXEName, "textboxes", "text1", Text1.Text
    End Sub

     Private Sub Timer1_Timer()
     If Text1.Text = "Checked" Then Check1.Value = 1
    Timer1.Enabled = False
    End Sub
    
    
    ===================================
    
    Hi!

This is really useful, thanks!

My question is, how can i make if statement on loading that checks if this value is already saved?

I want to do something like this


If SOMETHING THAT CHECKS IF VALUE IS SAVED <> "" Then
Command1.enabled = false
Else
End If

Basicly i want to check that if value is already saved then disable save button...



Regards 

======================================

As I mentioned in post#1, the 4th parameter of GetSetting is the default so you could do this.

If GetSetting(App.EXEName, "textboxes", "text1", "") <> "" Then
    Command1.enabled = false
End If

=======================================
    
    
    
    
    
    THIS ONE WORKS !!!!!
    -----------------------
    
	' Use speech marks (" ") if any names have spaces, although generally I have found that dashes ( - ) are not allowed in some parts, and you can only use underscores ( _ ) ...


    
    
    Dim Check1 As String
    SUB_FORM.MAIN_FORM.Check1.Value = GetSetting("YOUR_APP_NAME", "Settings", "Check1", 0)


    SaveSetting "YOUR_APP_NAME", "Settings", "Check1", Check1.Value