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")
    End If
Next