PART 3 TUT CODE ONLY

FORM 1 Code Additions:

Load Favorites:
Friend Sub Load_Favorites()
        Bookmarks.ListBox1.Items.Clear()
        Dim Contents As String = Favorites
        Dim FileLine As Short
        Dim StringData As String
        FileLine = FreeFile()

        FileOpen(FileLine, Contents, OpenMode.Input)
        While Not EOF(FileLine)
            StringData = LineInput(FileLine)
            Bookmarks.ListBox1.Items.Add((StringData))
        End While
        FileClose(FileLine)
    End Sub


 Add Current Page:
        SW = System.IO.File.AppendText(Favorites)
        SW.WriteLine(ComboBox1.Text)
        SW.Flush()
        SW.Close()


     Show All:
        Bookmarks.Show()



   Delete History:
        ComboBox1.Items.Clear()


     See All History:

	History.Show()

Bookmarks CODES:

	Dim SW As IO.StreamWriter
    Dim Favorites As String = "C:\app.favorites.dat"

    Delete:
        ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)


    Clear:
	ListBox1.Items.Clear()

    Add:
	 My.Settings.Bookmarks.Add(TextBox1.Text)
        ListBox1.Items.Add(TextBox1.Text)
        SW = System.IO.File.AppendText(Favorites)
        SW.WriteLine(TextBox1.Text)
        SW.Flush()
        SW.Close()

    Save:
	My.Settings.Save


HISTORY CODE:


	Clear Button:
		ListBox1.Items.Clear