Private Sub webBrowser1_Navigating( _
    ByVal sender As Object, ByVal e As WebBrowserNavigatingEventArgs) _
    Handles webBrowser1.Navigating
 
    Dim Url As String = e.Url.ToString()
    e.Cancel = True
    Dim a(0) As Byte
    WebBrowser1.Navigate(Url, "", a, _
      "Referer: http://www.referer.com/" + Environment.NewLine)
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.