[a.ahmed]

PHP كود :

Public Class Form1

    Private imglst As New ImageList

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        Me.TabControl1.Controls.Clear()
        Me.TabControl1.ImageList = imglst
    End Sub

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        CreateNewTab(Me.TextBox1.Text)
    End Sub

    Private Sub CreateNewTab(ByVal url As String)
        Dim wb As WebBrowser = New WebBrowser With {.Dock = DockStyle.Fill, .ScriptErrorsSuppressed = True}
        Dim tb As TabPage = New TabPage
        TabControl1.Controls.Add(tb)
        tb.Text = "..."
        tb.Controls.Add(wb)
        wb.Navigate(url)
        AddHandler wb.DocumentCompleted, AddressOf WebBrowser_DocumentCompleted
    End Sub
    Private Sub WebBrowser_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs)
        Dim wb As WebBrowser = TryCast(sender, WebBrowser)
        Dim tb As TabPage = TryCast(wb.Parent, TabPage)
        Dim url As String = wb.Url.GetLeftPart(UriPartial.Authority)
        tb.Text = wb.DocumentTitle
        Try
            Dim favicon As Image = Image.FromStream(New IO.MemoryStream(New Net.WebClient().DownloadData(url & "/favicon.ico")))
            imglst.Images.Add(url, favicon)
            tb.ImageKey = url
        Catch ex As Exception
        End Try
    End Sub

End Class