Scratch

Try
            Dim URL As Uri = New Uri(TP.Tag.Url.ToString)
            Dim favicona As Icon = Nothing
            If URL.HostNameType = UriHostNameType.Dns Then
                Dim iconURI As String = "http://" & URL.Host & "/favicon.ico"
                Try
                    Dim webclient As New Net.WebClient
                    Dim MemoryStream As New IO.MemoryStream(webclient.DownloadData(iconURI))
                    Dim favicon As New Icon(MemoryStream)
                    favicona = favicon
                Catch : End Try
                If favicona Is Nothing Then
                    Dim browser As GeckoWebBrowser = TP.Tag
                    For Each element As Skybound.Gecko.DOM.GeckoEmbedElement In browser.Document.GetElementsByTagName("link")
                        Dim cacheUrl As String = element.GetAttribute("rel")
                        If cacheUrl = "icon" Or cacheUrl = "shortcut icon" Or cacheUrl = "favicon" Or cacheUrl.Contains(".ico") Or cacheUrl = "SHORTCUT ICON" Then
                            If element.GetAttribute("href").StartsWith("http://") Then
                                iconURI = element.GetAttribute("href")
                            Else
                                iconURI = URL.AbsoluteUri & element.GetAttribute("href")
                            End If
                            Dim webclient As New Net.WebClient
                            Dim MemoryStream As New IO.MemoryStream(webclient.DownloadData(iconURI))
                            Dim favicon As New Icon(MemoryStream)
                            TP.Icon = Nothing
                            TP.Icon = favicon
                            TP.Icon = favicon
                            Form1.Icon = favicon
                            Exit Sub
                        End If
                    Next
                Else
                    Dim webclient As New Net.WebClient
                    Dim MemoryStream As New IO.MemoryStream(webclient.DownloadData(iconURI))
                    Dim favicon As New Icon(MemoryStream)
                    TP.Icon = Nothing
                    Form1.Icon = favicon
                    TP.Icon = favicon

                    Exit Sub
                End If
            End If

        Catch
            TP.Icon = Nothing
        End Try