Проблема с загрузкой плейлиста

Dim it As Object
Dim z As System.IO.StreamWriter
Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
If My.Computer.FileSystem.FileExists("list.txt") = True Then
My.Computer.FileSystem.DeleteFile("list.txt")
End If
Dim i As Integer
For i = 0 To Form2.ListBox1.Items.Count - 1
it = Form2.ListBox1.Items.Item(i)
z = My.Computer.FileSystem.OpenTextFileWriter("list.txt", True)
z.WriteLine(it)
z.Close()
Next
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If My.Computer.FileSystem.FileExists("list.txt") = True Then
Dim lis As New IO.StreamReader("list.txt")
it = lis.ReadLine()
Form2.ListBox1.Items.Add(it)
lis.Close()
End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If My.Computer.FileSystem.FileExists("list.txt") = True Then
it = My.Computer.FileSystem.ReadAllText("list.txt",true)
Form2.ListBox1.Items.Add(it)
End If
End Sub