Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.AxWebBrowser1.Navigate("http://vbarchiv.de")
    End Sub
 
    Private Sub AxWebBrowser1_NewWindow2(ByVal sender As Object, ByVal e As _
      AxSHDocVw.DWebBrowserEvents2_NewWindow2Event) Handles _
      AxWebBrowser1.NewWindow2
        e.cancel = True
    End Sub