' letzen Zustand laden
Private Sub Form_Load()
    Check1.Value = GetSetting("AppName", "Options", "CheckBox1", 0)
End Sub
 
' Zustand speichern
Private Sub Form_Unload(Cancel As Integer)
    Call SaveSetting("AppName", "Options", "CheckBox1", Check1.Value)
End Sub

Mit freundlichen Gr??en,
Andy G.