Private Sub SaveListView()
  Dim i As Integer
 
  With ListView1
    For i = 1 To .ListItems.Count
      WriteIniString "KonfigDatei", "Präfix" & CStr(i), .ListItems(i).Text, _
        sIniFile
      WriteIniString "KonfigDatei", "Gewicht" & CStr(i), .ListItems(i).SubItems( _
      1), sIniFile
      WriteIniString "KonfigDatei", "Datum" & CStr(i), .ListItems(i).SubItems( _
      2), sIniFile
      WriteIniString "KonfigDatei", "Kommentar" & CStr(i), .ListItems( _
      i).SubItems(3), sIniFile
    Next i
  End With
End Sub