Public Class WebForm
'SHDocVW Com Webbroser
Dim WithEvents BroActivX as SHDocVw.WebBrowser_V1
 
Private Sub WebForm_Load (sender as Object,e as System.EventArgs) Handles _
  Me.Load
'ActiveXBroser aus dem .Net Browser holen
BroActivX = WebBrowserNet.ActiveXInstance
End Sub
 
Private Sub BroActivX_NewWindow(ByVal URL As String, ByVal Flags As Integer, _
  ByVal TargetFrameName As String, ByRef PostData As Object, ByVal Headers As _
  String, ByRef Processed As Boolean) Handles BroActivX.NewWindow
 
Processed = True 'Popup wird nicht Angezeigt !
 
End Sub 
 
End Class