Private Sub Form_Load()
    Dim ch0, ch1, ch2
 
    ' Hinzufügen der Spaltenköpfe. Die Breite der
    ' Spalten entspricht der Breite des Steuerelements
    ' dividiert durch die Anzahl der Spalten.
 
    Set ch0 = ListView1.ColumnHeaders.Add(, , "0.Spalte", ListView1.Width / 3)
    Set ch1 = ListView1.ColumnHeaders.Add(, , "1.Spalte", ListView1.Width / 3)
    Set ch2 = ListView1.ColumnHeaders.Add(, , "2.Spalte", ListView1.Width / 3)
 
   ' View-Eigenschaft auf Bericht setzen.
   ListView1.View = lvwReport
 
End Sub

Private Sub Command1_Click()
    Dim S As String
    Dim SP() As String
    Dim i As Long
    Dim LItem As ListItem
    Dim ff
    Dim sFileName As String
 
    ListView1.View = 3 'lvwReport
    i = 1
 
    cmd1.ShowOpen
    sFileName = cmd1.FileTitle
    ff = FreeFile
 
    Open sFileName For Input As #ff
    Do While Not EOF(ff)
        Line Input #ff, S
        If InStr(1, S, "|") <> 0 Then
            SP = Split(S, "|", , vbTextCompare) 'ergibt mit der Beispieldatei 
            ' 3Felder
            Set LItem = ListView1.ListItems.Add(, , SP(0))
            LItem.SubItems(1) = SP(1)
            LItem.SubItems(2) = SP(2)
            i = i + 1
        End If
    Loop
    Close #1
 
End Sub