Private Sub WebBrowser1_StatusTextChanged(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles WebBrowser1.StatusTextChanged
 
        Dim myWeb As WebBrowser
        myWeb = CType(sender, WebBrowser)
        Dim lnkText As String = myWeb.StatusText
 
        If lnkText <> "" And (lnkText.ToLower.StartsWith("http") Or _
          lnkText.ToLower.StartsWith("ftp")) Then
            MsgBox(myWeb.StatusText)
        End If
 
    End Sub

MfG
Huppi

######################################################
# Dank Computer wissen wir viel genauer, was wir nicht wissen... #
######################################################