Save Check / Option Values!

[Appaq]

Hello 2 all...

I have a form with 4 CheckBoxes and 4 Options...
How can i save the value of the checkboxes ? For example the checkbox 1 and 3 they have the value 1... (checked). When i restart the program i want to be the same, 1 and 3 checked! please help me!

[MarkT]

Use the SaveSetting and GetSetting functions to store and retrieve the values from the registry.

Private Sub Form_Load()
    Check1.Value = GetSetting(App.EXEName, "Settings", "Check1", 0)
    Check2.Value = GetSetting(App.EXEName, "Settings", "Check2", 0)
    Check3.Value = GetSetting(App.EXEName, "Settings", "Check3", 0)
    Check4.Value = GetSetting(App.EXEName, "Settings", "Check4", 0)
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    SaveSetting App.EXEName, "Settings", "Check1", Check1.Value
    SaveSetting App.EXEName, "Settings", "Check2", Check2.Value
    SaveSetting App.EXEName, "Settings", "Check3", Check3.Value
    SaveSetting App.EXEName, "Settings", "Check4", Check4.Value
End Sub

[Appaq]

Thanx alot my friend!