Private Sub mainWebBrowser_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles mainWebBrowser.DocumentCompleted



        Dim Olink As HtmlElement
        Dim Elem As HtmlElementCollection = mainWebBrowser.Document.Links

        'check the link that has been clicked
        For Each Olink In Elem
            'call the procedure to check if this is a valid link
            Olink.AttachEventHandler("onclick", AddressOf LinkClicked)
            Olink.AttachEventHandler("mousemove", AddressOf LinkStatus)
        Next

    End Sub



    Private Sub LinkClicked()

        Accepted = False

        Dim link As HtmlElement = mainWebBrowser.Document.ActiveElement
        Dim url As String = link.GetAttribute("href")

        Call CheckLinkClicked(url)

        'Call SearchValue()

        If Accepted = True Then
            mainWebBrowser.Navigate(url)
            ToolStripStatusLabel2.Text = url & "(Allowed)"
        Else
            bCancel = True
            ToolStripStatusLabel2.Text = url & "(not allowed)"
            MsgBox("That is not an allowed URL" & Chr(13) & Chr(10) & "If this is wrong, then someone needs to enter this site into the allowed list!")
        End If

        urlTextBox.Text = mainWebBrowser.Url.ToString

    End Sub


    Sub LinkStatus()

        Accepted = False

        Dim link As HtmlElement = mainWebBrowser.Document.ActiveElement
        Dim url As String = link.GetAttribute("href")

        Call CheckLinkClicked(url)

        'Call SearchValue()

        If Accepted = True Then

            ToolStripStatusLabel2.Text = url & "(Allowed)"
        Else

            ToolStripStatusLabel2.Text = url & "(not allowed)"

        End If
    End Sub