Codenstuff.com

Public Class Form1

    Dim URLsVisited As New Collection()

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        btnRecent.Enabled = False
        btnNew.Enabled = False
    End Sub

    Private Sub btnVisit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVisit.Click
        URLsVisited.Add(TextBox1.Text)
        System.Diagnostics.Process.Start(TextBox1.Text)
        btnRecent.Enabled = True
        btnNew.Enabled = True
    End Sub

    Private Sub btnRecent_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRecent.Click
        Dim URLName As String = ""
        Dim ALLURLs As String

        For Each URLName In URLsVisited
            ALLURLs = ALLURLs & URLName & vbCrLf
        Next URLName

        MsgBox(ALLURLs, MsgBoxStyle.Information, "Websites Visited")
    End Sub

    Private Sub btnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNew.Click
        TextBox1.Clear()
        btnRecent.Enabled = True
    End Sub
End Class