' Speichern
Dim sData As String
Dim i As Long
With LstBank
  sData = Space$(.ListCount)
  For i = 0 To .ListCount - 1
    Mid$(sData, i + 1, 1) = IIf(.Selected(i), "1", "0")
  Next i
End With
SaveSetting Ttl, "Daten", sData

' Wiederherstellen
Dim sData As String
Dim i As Long
 
sData = GetSetting(Ttl, "Daten", "")
If Len(sData) > 0 Then
  With LstBank
    For i = 0 To .ListCount - 1
      .Selected(i) = (Val(Mid$(sData, i + 1, 1)) <> 0)
    Next i
  End With
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de