[sooriaty03]

السلام عليكم ورحمة الله وبركاته

تفضل أخي الكريم

كود :

Public Class Form1
    Dim IsLoaded As Boolean = False
    Private Sub WebKitBrowser1_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebKitBrowser1.Navigated
        IsLoaded = True
    End Sub

    Private Sub WebKitBrowser1_Navigating(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WebKitBrowser1.Navigating
        If IsLoaded = True Then
            Dim Tab_Page As New TabPage
            Tab_Page.Text = "New Page"
            TabControl1.TabPages.Add(Tab_Page)
            TabControl1.SelectedIndex = TabControl1.TabPages.Count - 1
            Dim Web_Browser As New WebKit.WebKitBrowser
            Web_Browser.Url = e.Url
            Web_Browser.Dock = DockStyle.Fill
            Tab_Page.Controls.Add(Web_Browser)
        End If
    End Sub
End Class

بالتوفيق