Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As _
      System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow
        e.Cancel = True ' Neues Fenster blocken
    End Sub

    Private Sub WebBrowser1_Navigating(ByVal sender As System.Object, ByVal e _
      As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles _
      WebBrowser1.Navigating
        If e.Url.AbsoluteUri.Contains("usa.com") Then
            e.Cancel = True ' Aufruf der Seite blockieren
        End If
    End Sub

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co