Dim fs As FileStream
        Dim sw As StreamWriter
        Dim sFile As String
        sFile = "C:\Library.txt"
 
        fs = New FileStream(sFile, FileMode.OpenOrCreate, FileAccess.Write)
        sw = New StreamWriter(fs)
 
 
        For i = 0 To ListView1.Items.Count - 1
            sw.WriteLine(ListView1.Items(i).Text)
            sw.WriteLine(ListView1.Items(i).SubItems(1).Text)
            sw.WriteLine(ListView1.Items(i).SubItems(2).Text)
            sw.WriteLine(ListView1.Items(i).SubItems(3).Text)
        Next
        fs.Close()

Dim fs As FileStream
        Dim sr As StreamReader
        Dim sFile As String
        Dim inn As Integer
        sFile = "C:\Library.txt"
        Inn = 0
        fs = New FileStream(sFile, FileMode.OpenOrCreate, FileAccess.Read)
        sr = New StreamReader(fs)
        Do
            ListView1.Items.Add(sr.ReadLine())
            ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(sr.ReadLine( _
              ))
            ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(sr.ReadLine( _
            ))
            ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(sr.ReadLine( _
            ))
 
        Loop Until sr.Peek() = -1
        fs.Close()