[MSDOS]

جرب بوضعها بدالة كالتالي

كود :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        AddTabPage("http:\\www.google.com")
    End Sub

    Private Sub AddTabPage(ByVal url As String)

        Dim wb As New WebBrowser
        wb.Dock = DockStyle.Fill

        Dim tb As New TabPage
        tb.Controls.Add(wb)
        Me.TabControl1.TabPages.Add(tb)

        Me.TabControl1.SelectedIndex = Me.TabControl1.TabPages.Count - 1

        tb.Text = "تحميل..."
        wb.Navigate(url)

        AddHandler wb.DocumentCompleted, AddressOf WebBrowser_DocumentCompleted

    End Sub


    Private Sub WebBrowser_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
        sender.Parent.Text = sender.DocumentTitle
    End Sub

End Class