? Trouble with calling a sub vs onClick Event ?

Question

Hello & Thanks ;

Normally I call this Sub
Private Sub Target_self_Click(sender As Object, e As EventArgs) Handles Target_self.Click
Via a Button click .
But now I want get rid of the Button , and call a Sub with the same code via this
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Private Sub ChangeBlankToSelf()

I get no error msg , just this:
1>------ Build started: Project: GetElementByTag, Configuration: Debug Any CPU ------
========== Build: 0 succeeded, 1 failed, 0 up-to-date, 0 skipped ==========

I will try to Post the code via a Quote , since when I try to enter code as code , I get ACCESS DENIED .
Thanks for your Help...

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
    Dim PageElements As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("img")
    txbAddress.Text = WebBrowser1.Url.ToString
    ChangeBlankToSelf()
End Sub

Private Sub Target_self_Click(sender As Object, e As EventArgs) Handles Target_self.Click
    Dim TimesThruCount = 0
    Dim linkElements As HtmlElementCollection =
       WebBrowser1.Document.GetElementsByTagName("A")
    Dim firstLink = linkElements.Cast(Of HtmlElement).FirstOrDefault()
    For Each link As HtmlElement In linkElements
        If link.GetAttribute("target") = "_blank" Then
            '                firstLink.SetAttribute("target", "_self")
            link.SetAttribute("target", "_self")
            EachSetLine.Text = EachSetLine.Text & ControlChars.NewLine & link.OuterHtml
        End If
        TimesThruCount = TimesThruCount + 1
    Next
End Sub

Private Sub ChangeBlankToSelf()
    Dim TimesThruCount = 0
    Dim linkElements As HtmlElementCollection =
       WebBrowser1.Document.GetElementsByTagName("A")
    Dim firstLink = linkElements.Cast(Of HtmlElement).FirstOrDefault()
    For Each link As HtmlElement In linkElements
        If link.GetAttribute("target") = "_blank" Then
            '                firstLink.SetAttribute("target", "_self")
            link.SetAttribute("target", "_self")
            EachSetLine.Text = EachSetLine.Text & ControlChars.NewLine & link.OuterHtml
        End If
        TimesThruCount = TimesThruCount + 1
    Next
End Sub

Answer 1

Strange but true:
I closed out VS and started it up again ,
then it ran just fine .
Thanks