Private Sub WebBrowser1_Navigating(ByVal sender As System.Object, ByVal e _
      As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles _
      WebBrowser1.Navigating
        Dim p() As String = e.Url.Host.Replace("www.", "").Split("."c)
        Dim domain As String = p(p.Length - 2) & "." & p(p.Length - 1)
        For Each item As String In ComboBox1.Items
            If item.Contains(domain) Then Return
        Next
        e.Cancel = True
    End Sub

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co