❓ [HELP]Webbrowser History[Solved]

Public Class Form1

    Private Sub savelv()
        Dim Fb As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter()

        Dim FS As New System.IO.FileStream(Application.StartupPath & "\listview.txt", IO.FileMode.Create)
        Fb.Serialize(FS, New ArrayList(ListView1.Items))
        FS.Close()
    End Sub



    Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown



        If e.KeyCode = Keys.Enter Then
            WebBrowser1.Navigate(TextBox1.Text)

            While Not WebBrowser1.ReadyState = WebBrowserReadyState.Complete

                Application.DoEvents()

            End While

            Try
                Additem()
            Catch
                MsgBox(ErrorToString)
            End Try
        End If

        savelv()

    End Sub

    Private Sub Additem()
        If ListView1.FindItemWithText(TextBox1.Text) Is Nothing Then

            Dim lv As ListViewItem = ListView1.Items.Add(TextBox1.Text)
            'The remaining columns are subitems   
            'lv.SubItems.Add(item)
        End If

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ListView1.View = View.Details
        ListView1.FullRowSelect = True

        Try
            Dim Fb2 As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter()
            Dim FS2 As New System.IO.FileStream(Application.StartupPath & "\listview.txt", IO.FileMode.Open)
            ListView1.Items.AddRange(Fb2.Deserialize(FS2).ToArray(GetType(ListViewItem)))
            FS2.Close()
        Catch ex As Exception

        End Try
    End Sub

    Private Sub cmdremoveselected_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdremoveselected.Click
        ListView1.Items.Remove(ListView1.FocusedItem)

        savelv()
    End Sub
    Private Sub cmdclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdclear.Click
        ListView1.Items.Clear()

        savelv()
    End Sub

    Private Sub WebBrowser1_Navigating(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated
        TextBox1.Text = WebBrowser1.Url.AbsoluteUri
    End Sub
End Class