Private Sub Form_Load()
' Erstellen einer Objektvariablen für das ColumnHeader-Objekt.
  Dim clmX As ColumnHeader
  Dim Ltm As ListItem
  Dim File As String
  Dim Line As String
  Dim Arr() As String
  Dim SP As String
  Dim ff As Long
  Dim i As Long
  Dim nCount As Long
 
' Hinzufügen der Spaltenköpfe. Die Breite der
  ' Spalten entspricht der Breite des Steuerelements
  ' dividiert durch die Anzahl der Spalten.
  Set clmX = lvwListView1.ColumnHeaders. _
  Add(, , "Material", lvwListView1.Width / 2)
  Set clmX = lvwListView1.ColumnHeaders. _
  Add(, , "Maße", lvwListView1.Width / 2, lvwColumnCenter)
 
' Die folgenden zwei Befehlszeilen sind nur zur direkten Anzeige bzw. Ausgabe
  Form1.Show
  lvwListView1.View = lvwReport ' View-Eigenschaft auf Bericht setzen.
 
  SP = "|"
  File = "D:\Mangel.txt"
 
  'Öffnen der Datei
  ff = FreeFile
  Open File For Input As #ff
  'Verarbeitung der Werte bis EOF erreicht
  Do Until EOF(ff)
    Line Input #ff, Line
    If Line = "" Then
    Else
      Arr() = Split(Line, SP)
      Set Ltm = lvwListView1.ListItems.Add(, , Arr(0))
      Ltm.SubItems(1) = Arr(1)
      ' Hier könntest du weitere Spalten füllen
    End If
  Loop
 
lvwListView1.View = lvwReport ' View-Eigenschaft auf Bericht setzen.
 
End Sub