Private Sub Wb_Navigating(ByVal sender As System.Object, ByVal e As Skybound.Gecko.GeckoNavigatingEventArgs) Handles Wb.Navigating
    
        Dim oURL As Uri = New Uri(e.Uri.AbsoluteUri)
        Dim favicon As Image
        If oURL.HostNameType = UriHostNameType.Dns Then
            Dim iconURL As String = "http://" & oURL.Host & "/favicon.ico"
            Dim request As System.Net.WebRequest = HttpWebRequest.Create(iconURL)
            Dim response As HttpWebResponse = request.GetResponse
            Dim stream As IO.Stream = response.GetResponseStream
            favicon = Image.FromStream(stream)
            If favicon Is Nothing Then
                Dim result As String = String.Empty
                Dim browser As New GeckoWebBrowser
                For Each element As GeckoElement In browser.Document.DocumentElement.GetElementsByTagName("link")
                    If element.GetAttribute("REL") = "SHORTCUT ICON" Then
                        result = element.GetAttribute("HREF")
                    End If
                Next
                Dim req As WebRequest = HttpWebRequest.Create(result)
                Dim res As HttpWebResponse = req.GetResponse
                Dim str As IO.Stream = res.GetResponseStream
                favicon = Image.FromStream(str)
            End If
            Me.PictureBox1.Image = favicon

        End If
    End Sub

Imports Skybound
Imports Skybound.Gecko
Imports System.Net

Public Class Form1
    Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Skybound.Gecko.Xpcom.Initialize("C:\xulrunner")
        'Create new tabpage
        Dim NewTab As New TabPage("about:blank")
        'Assign a unique name to identify it
        NewTab.Name = "NewTab"
        'Create new GeckoWebBrowser instance
        Dim Browser As New Skybound.Gecko.GeckoWebBrowser
        Browser.Name = "Browser"
        'Fill entire tabpage
        Browser.Dock = DockStyle.Fill
        'Assign events
        AddHandler Browser.CanGoBackChanged, AddressOf BrowserCanGoBack_Changed
        AddHandler Browser.CanGoForwardChanged, AddressOf BrowserCanGoForward_Changed
        AddHandler Browser.DocumentTitleChanged, AddressOf BrowserDocumentTitle_Changed
        AddHandler Browser.ProgressChanged, AddressOf Browser_ProgressChanged
        AddHandler Browser.Navigated, AddressOf BrowserNavigated
        'Add browser to tabpage
        NewTab.Controls.Add(Browser)
        'Add tabpage to tabcontrol
        BrowserTabs.TabPages.Add(NewTab)
        Browser.Navigate("http://www.google.com/")
    End Sub

    Private Sub BrowserCanGoBack_Changed(ByVal sender As Object, ByVal e As System.EventArgs)
        'The sender is the browser.
        Dim SelectedBrowser As Skybound.Gecko.GeckoWebBrowser = sender
        'MsgBox("The BrowserCanGoBack event was raised. " & SelectedBrowser.CanGoBack.ToString)
    End Sub

    Private Sub BrowserCanGoForward_Changed(ByVal sender As Object, ByVal e As System.EventArgs)
        'The sender is the browser.
        Dim SelectedBrowser As Skybound.Gecko.GeckoWebBrowser = sender
        'MsgBox("The BrowserCanGoForward event was raised. " & SelectedBrowser.CanGoForward.ToString)
    End Sub

    Public Sub BrowserDocumentTitle_Changed(ByVal sender As Object, ByVal e As System.EventArgs)
        'The sender is the browser.
        Dim SelectedBrowser As Skybound.Gecko.GeckoWebBrowser = sender
        'Set the tabpage text by getting the parent of the browser control
        SelectedBrowser.Parent.Text = SelectedBrowser.DocumentTitle

    End Sub
'-----------------------------------------------------------------------------------------------------------------------------------    
'THIS NOT WORKING FOR EVERY TAB

    Private Sub BrowserNavigated(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim SelectedBrowser As Skybound.Gecko.GeckoWebBrowser = sender
        BTAddress.Text = SelectedBrowser.Document.Url.ToString
    End Sub
'-----------------------------------------------------------------------------------------------------------------------------------    
'THIS NOT WORKING FOR EVERY TAB

Private Sub Browser_ProgressChanged(ByVal sender As System.Object, ByVal e As Skybound.Gecko.GeckoProgressEventArgs)

        ProgressBar.Maximum = e.MaximumProgress
        ProgressBar.Value = e.CurrentProgress

    End Sub

    Private Sub BrowserTabsAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BrowserTabsAdd.Click
        'Create new tabpage
        Dim NewTab As New TabPage("about:blank")
        'Assign a unique name to identify it
        NewTab.Name = "NewTab"
        'Create new GeckoWebBrowser instance
        Dim Browser As New Skybound.Gecko.GeckoWebBrowser
        Browser.Name = "Browser"
        'Fill entire tabpage
        Browser.Dock = DockStyle.Fill
        'Assign events
        AddHandler Browser.CanGoBackChanged, AddressOf BrowserCanGoBack_Changed
        AddHandler Browser.CanGoForwardChanged, AddressOf BrowserCanGoForward_Changed
        AddHandler Browser.DocumentTitleChanged, AddressOf BrowserDocumentTitle_Changed
        'Add browser to tabpage
        NewTab.Controls.Add(Browser)
        'Add tabpage to tabcontrol
        BrowserTabs.TabPages.Add(NewTab)
        Browser.Navigate("http://checkip.dyndns.org/")

    End Sub

    Private Sub BrowserTabsRemove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BrowserTabsRemove.Click
        If Not BrowserTabs.TabPages.Count = 1 Then
            BrowserTabs.TabPages.RemoveAt(BrowserTabs.SelectedIndex)
            BrowserTabs.SelectTab(BrowserTabs.TabPages.Count - 1)
        End If
    End Sub

    Private Sub BrowserTabsGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BrowserTabsGo.Click
        CType(BrowserTabs.SelectedTab.Controls.Item(0), GeckoWebBrowser).Navigate(BTAddress.Text)
        'Browser.Navigate.BTAddress.Text()
    End Sub

    Private Sub BrowserTabsRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BrowserTabsRefresh.Click
        CType(BrowserTabs.SelectedTab.Controls.Item(0), GeckoWebBrowser).Reload()
    End Sub

    Private Sub BrowserTabsStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BrowserTabsStop.Click
        CType(BrowserTabs.SelectedTab.Controls.Item(0), GeckoWebBrowser).Stop()
    End Sub

End Class