Private Sub Liste_Save()
  Dim F As Integer
  Dim I As Integer
 
  With List1
    F = FreeFile
    Open App.Path & "Liste.dat" For Output As #F
    For I = 0 To .ListCount - 1
      Print #F, CStr(Abs(.Selected(I))) & ";" & .List(I)
    Next I
    Close #F
  End With
End Sub
 
Private Sub Liste_Read()
  Dim F As Integer
  Dim I As Integer
  Dim bChecked As Boolean
  Dim sLine As String
 
  With List1
    .Clear
 
    F = FreeFile
    Open App.Path & "Liste.dat" For Input As #F
    While Not EOF(F)
      Line Input #F, sLine
      .AddItem Mid$(sLine, 3)
      .Selected(.ListCount - 1) = (Val(Left$(sLine, 1)) <> 0)
    Wend
    Close #F
  End With
End Sub

SaveSetting "DeineApp", "Einstellung", "CheckBox", CStr(Check1.Value)
SaveSetting "DeineApp", "Einstellung", "Pfad", sPath

Check1.Value = Val(GetSetting("DeineApp", "Einstellung", "CheckBox"))
sPath = GetSetting("DeineApp", "Einstellung", "Pfad")