Private Sub ÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) _
  Handles ÖffnenToolStripMenuItem.Click
        lveinzel.Items.Clear()
        lvUnterprogramme.Items.Clear()
 
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.Cancel Then _
          Exit Sub
 
        Dim flines() As String = IO.File.ReadAllLines(OpenFileDialog1.FileName)
 
        Dim lvi As ListViewItem = Nothing
 
        '------------------------------------
 
        For i As Integer = 0 To flines.Count - 1
            Dim parts() As String = flines(i).Split("="c)
 
            If parts(0) = "[HAUPTPROGRAMM]" Then TextBox1.Text = parts(1)
            If parts(0) = "PG_BEZEICHNUNG" Then TextBox2.Text = parts(1)
            If parts(0) = "PG_LAENGE" Then TextBox3.Text = parts(1)
            If parts(0) = "PG_BREITE" Then TextBox4.Text = parts(1)
            If parts(0) = "PG_DICKE" Then TextBox5.Text = parts(1)
            If parts(0) = "PG_LAENGENOFFSET" Then TextBox6.Text = parts(1)
            If parts(0) = "PG_BREITENOFFSET" Then TextBox7.Text = parts(1)
 
        Next
 
        ' --- alles ---
 
        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 = alles.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
 
        Next
 
        ' --- einzel ---
 
        Dim flines1() As String = IO.File.ReadAllLines(OpenFileDialog1.FileName)
        Dim lvi1 As ListViewItem = Nothing
 
        For i As Integer = 0 To flines.Count - 1
            Dim parts1() As String = flines1(i).Split("="c)
 
            If flines1(i).Trim.StartsWith(col1(0)) And parts1(1) > 0 Then
                If parts1(1) > 0 Then
                    lvi1 = lveinzel.Items.Add(parts1(1))
                    For k As Integer = 1 To col1.Length - 1
                        lvi1.SubItems.Add("")
                    Next k
                End If
            End If
 
 
            Dim id1 As Integer = Array.IndexOf(col1, parts1(0))
 
            If lvi1 IsNot Nothing AndAlso id1 > 0 Then
                lvi1.SubItems(id1).Text = parts1(1)
            End If
 
        Next
 
 
    End Sub