Public Class frmListViewDemo
 
    Dim lv As New ListView With _
        {.Parent = Me, .Width = 400, .Height = 400, .View = View.Details}
 
 
    Private Sub frmListViewDemo_Load(sender As System.Object, _
                                 e As System.EventArgs) Handles MyBase.Load
 
        Dim col() As String = _
         {"Bearbeitungsindex", "Durchmesser", "XSoll", "YSoll", "TiefeSoll", _
          "Aggregat", "Werkzeugnummer"}
 
        For i As Integer = 0 To col.Length - 1
            lv.Columns.Add(col(i))
        Next i
 
        Dim lines() As String = _
           IO.File.ReadAllLines("C:\downloads\001030777965L.txt")
 
        Dim lvi As ListViewItem
 
        For i As Integer = 0 To lines.Count - 1
            Dim parts() As String = lines(i).Split("="c)
 
            If lines(i).Trim.StartsWith(col(0)) Then
                lvi = lv.Items.Add(parts(1))
                For k As Integer = 1 To col.Length - 1
                    lvi.SubItems.Add("")
                Next
            End If
 
            Dim id As Integer = Array.IndexOf(col, parts(0))
 
            If lvi IsNot Nothing AndAlso id > 0 Then
                lvi.SubItems(id).Text = parts(1)
            End If
        Next i
 
    End Sub
End Class