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 = Image.FromStream(stream)
 
                'Hier müsste das Bild (als "favicon" deklariert) automatisch 
                ' auf 16 x 16 Pixel verkleiner werden
 
 
                ' Display the favicon on ToolStripLabel1
 
                ButtonSpecAny5.Image = favicon