Private Sub newInstance(ByVal sender As Object, ByVal e As _
  System.ComponentModel.CancelEventArgs) Handles wb.NewWindow
        MSGBox("Neues Fenster geblockt!")
        e.Cancel = True
End Sub

Public Class Class_NEW_Webbrowser
    Shared Sub NewWebBrowser(ByVal url As String)
        Dim wbForm As New wbForm
        MdiParentForm.CtrlMdiTaskbar1.Add(wbForm)
        wbForm.wb.Navigate(url)
        wbForm.MdiParent = MdiParentForm
        wbForm.Show()
    End Sub
End Class
    Private Sub wb_DocumentCompleted(ByVal sender As Object, ByVal e As _
      WebBrowserDocumentCompletedEventArgs) Handles wb.DocumentCompleted
        'START: auf link-klick reagieren
        Dim link As HtmlElement
        Dim links As HtmlElementCollection = wb.Document.Links
        'Dim linkx As HtmlElementCollection = wb.
        For Each link In links
            link.AttachEventHandler("onclick", AddressOf LinkClicked)
        Next
        'ENDE: auf link-klick reagieren
    End Sub
    Private Sub LinkClicked(ByVal sender As Object, ByVal e As EventArgs)
        Dim link As HtmlElement = wb.Document.ActiveElement
        Dim url As String = link.GetAttribute("href")
        Dim target As String = link.GetAttribute("target")
 
        If target = "_blank" Or target = "_new" Then
            Class_NEW_Webbrowser.NewWebBrowser(url)
        End If
    End Sub