With ListView1
    <font color=green>' ListView - Spalten</font>
    .ColumnHeaders.Add , , "Überschrift"
    .ColumnHeaders.Add , , "Beschreibung"
    .ColumnHeaders.Add , , "Memotext"
 
     <font color=green>' Umschalten auf Report-View</font>
    .View = lvwReport
  End With

  <font color=green>' INI-Datei auslesen</font>
  Dim F As Integer
  Dim sLine As String
  Dim itemX As ListItem
  Dim sData() As String
 
  F = FreeFile
  Open "daten.dat" For Input As #F
  With ListView1
    While Not EOF(F)
      Line Input #F, sLine
      If sLine <> "" Then
        If Left$(sLine, 1) = "[" And Right$(sLine, 1) = "]" Then
          sLine = Mid$(sLine, 2, Len(sLine) - 2)
          sData = Split(sLine, ",")
          Set itemX = .ListItems.Add(, , sData(0))
          itemX.SubItems(1) = Trim$(sData(1))
 
          Line Input #F, sLine
          itemX.SubItems(2) = sLine
        End If
      End If
    Wend
    Close #F
  End With