<font color=green>' zunächst die benötigten API-Deklarationen (INI)</font>
Private Declare Function WritePrivateProfileString Lib _
  "kernel32" Alias "WritePrivateProfileStringA" _
  (ByVal lpApplicationName As String, _
  ByVal lpKeyName As Any, ByVal lpString As Any, _
  ByVal lpFileName As String) As Long
 
Private Declare Function GetPrivateProfileString Lib _
  "kernel32" Alias "GetPrivateProfileStringA" _
  (ByVal lpApplicationName As String, _
  ByVal lpKeyName As Any, ByVal lpDefault As String, _
  ByVal lpReturnedString As String, ByVal nSize As Long, _
  ByVal lpFileName As String) As Long
 
<font color=green>' String aus INI lesen</font>
Public Function GetIniString(ByVal Sektion As String, _
  ByVal Titel As String, ByVal Vorgabe As String, _
  ByVal INIFile As String) As String
 
  Dim Result As Long
  Dim Dummy As String
 
  Dummy = Space$(256)
  Result = GetPrivateProfileString(Sektion, Titel, _
    Vorgabe, Dummy, 255, INIFile)
  GetIniString = Left$(Dummy, Result)
End Function
 
<font color=green>' String in INI speichern</font>
Public Sub WriteIniString(ByVal Sektion As String, _
  ByVal Titel As String, ByVal sText As String, _
  ByVal INIFile As String)
 
  WritePrivateProfileString Sektion, Titel, sText, _
    INIFile
End Sub

Dim sIniFile As String
sIniFile = App.Path & "MySetup.ini"
 
<font color=green>' CheckBox-Einstellungen speichern</font>
WriteIniString "CheckBox-Setup", "Check1", CStr(Check1.Value), sIniFile
WriteIniString "CheckBox-Setup", "Check2", CStr(Check2.Value), sIniFile
WriteIniString "CheckBox-Setup", "Check3", CStr(Check3.Value), sIniFile
WriteIniString "CheckBox-Setup", "Check4", CStr(Check4.Value), sIniFile
WriteIniString "CheckBox-Setup", "Check5", CStr(Check5.Value), sIniFile
WriteIniString "CheckBox-Setup", "Check6", CStr(Check6.Value), sIniFile
WriteIniString "CheckBox-Setup", "Check7", CStr(Check7.Value), sIniFile
WriteIniString "CheckBox-Setup", "Check8", CStr(Check8.Value), sIniFile
 
 
<font color=green>' CheckBox-Einstellungen lesen</font>
Check1.Value = Val(GetIniString("CheckBox-Setup", "Check1", 0, sIniFile)
Check2.Value = Val(GetIniString("CheckBox-Setup", "Check2", 0, sIniFile)
Check3.Value = Val(GetIniString("CheckBox-Setup", "Check3", 0, sIniFile)
Check4.Value = Val(GetIniString("CheckBox-Setup", "Check4", 0, sIniFile)
Check5.Value = Val(GetIniString("CheckBox-Setup", "Check5", 0, sIniFile)
Check6.Value = Val(GetIniString("CheckBox-Setup", "Check6", 0, sIniFile)
Check7.Value = Val(GetIniString("CheckBox-Setup", "Check7", 0, sIniFile)
Check8.Value = Val(GetIniString("CheckBox-Setup", "Check8", 0, sIniFile)