'dieses Ereignis tritt auf, bevor der WebBrowser eine neue Url lädt (egal ob im 
' aktuellen Browser-Control oder in einem neuen Browser-Fenster (Popup)
Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, _
  Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As _
  Variant, Cancel As Boolean)
 
If LCase(Trim(TargetFrameName)) = "_blank" Then
   'url soll in einem neuen Browser-Fenster geöffnet werden (Popup)
   Cancel = True     'Prozess abbrechen
   WebBrowser1.Navigate URL     'lade Url im aktuellen Browser-Control
   'natürlich könnte diese Funktion auch nur für bestimmte Urls ausgeführt 
   ' werden
End If
 
End Sub

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.