Public Sub SaveListView()
        Dim X As Integer
        Dim bla As String
        Dim swWriter As StreamWriter = New StreamWriter(Application.StartupPath _
          & "\test.txt", False)
 
        For X = 0 To frmMain.ListView1.Items.Count - 1
            bla = frmMain.ListView1.Items(X).Text & ";" & _
              frmMain.ListView1.Items(X).SubItems(1).Text & ";" & _
              frmMain.ListView1.Items(X).SubItems(2).Text & ";" & _
              frmMain.ListView1.Items(X).SubItems(3).Text
            swWriter.WriteLine(bla)    ' Schreibt einen Satz incl. CrLf
        Next X
        swWriter.Close()
        swWriter.Dispose()
 
    End Sub

Public Sub FillListFromFile()
        Dim srReader As StreamReader
        Dim bla As String
        Dim Einzelteile() As String
        Dim X As Integer = 0
 
        Try
            srReader = New StreamReader(Application.StartupPath & "\test.txt")
            Do Until srReader.EndOfStream               ' Bis Dateiende erreicht
                bla = srReader.ReadLine                 ' Eine Zeile lesen
                Einzelteile = bla.Split(";")
                ' In Einzelteile zerlegen
 
                frmMain.ListView1.Items.Add(Einzelteile(0))
                frmMain.ListView1.Items(X).SubItems.Add(Einzelteile(1))
                frmMain.ListView1.Items(X).SubItems.Add(Einzelteile(2))
                frmMain.ListView1.Items(X).SubItems.Add(Einzelteile(3))
                X = X + 1
            Loop
 
            ' Eine fiktiven Satz hinzufügen
            frmMain.ListView1.Items.Add(X)
            frmMain.ListView1.Items(X).SubItems.Add(X)
            frmMain.ListView1.Items(X).SubItems.Add(X)
            frmMain.ListView1.Items(X).SubItems.Add(X)
 
            srReader.Close()
            srReader.Dispose()
        Catch ex As Exception
 
            MessageBox.Show(ex.Message)
        Finally
            frmMain.ListView1.OwnerDraw = False
            frmMain.ListView1.View = View.Details
        End Try
    End Sub