Dim url As Uri = New Uri(KryptonComboBox1.Text)
 
 
 
        If url.HostNameType = UriHostNameType.Dns Then
 
            ' Get the URL of the favicon
 
            ' url.Host will return such string as www.google.com
 
            Dim iconURL = "http://" & url.Host & "/favicon.ico"
 
 
 
            ' Download the favicon
 
            Dim request As System.Net.WebRequest = _
              System.Net.HttpWebRequest.Create(iconURL)
 
            Dim response As System.Net.HttpWebResponse = _
              request.GetResponse()
 
            Dim stream As System.IO.Stream = response.GetResponseStream()
 
            Dim favicon As Image = Image.FromStream(stream)
 
            'Hier müsste das Bild (als "favicon" deklariert) automatisch 
            ' auf 16 x 16 Pixel verkleiner werden
 
            Dim b As New Bitmap(16, 16)
            Dim g As Graphics = Graphics.FromImage(b)
            g.DrawImageUnscaledAndClipped(favicon, New Rectangle(0, 0, 16, 16))
            favicon = b
            ' Display the favicon on ToolStripLabel1
 
            ButtonSpecAny5.Image = favicon