Creating a Favoriter [SOLVED]

[brandonio21]

Alright, So I was totally mixed up with that previous coding. Sorry!

Code:

Dim writer As New System.IO.StreamWriter(My.Application.Info.DirectoryPath + "/settings.ini")
        Dim i As Integer = 0
        Do Until i = ListBox1.Items.Count
            ListBox1.SelectedIndex = i
            If i < ListBox1.Items.Count Then
                writer.Write(ListBox1.SelectedItem + vbNewLine)
            Else
                writer.Write(ListBox1.SelectedItem)
            End If
            i = i + 1
        Loop
        writer.Close()
        writer.Dispose()