Dim col() As String 'formular-weit gültige Deklaration
 
Private Sub frmListViewDemo_Load(sender As System.Object, _
                       e As System.EventArgs) Handles MyBase.Load
 
   col =
     {"Bearbeitungsindex", "Durchmesser", "XSoll", "YSoll", _
      "TiefeSoll", "Aggregat", "Werkzeugnummer"}
 
   For i As Integer = 0 To col.Length - 1
      lv.Columns.Add(col(i))
      If i > 0 Then
         lv.Columns(i).TextAlign = HorizontalAlignment.Right
      End If
   Next i
End Sub

lv.Items.Clear()
 
Dim lvi As ListViewItem = Nothing
For i As Integer = 0 To flines.Count - 1
   Dim parts() As String = flines(i).Split("="c)
 
   If flines(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 k
   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
 
   If parts(0) = "Breite" Then tboB.Text = parts(1)
   If parts(0) = "Laenge" Then tboL.Text = parts(1)
Next i