مساعدة فتح tab جديدة في نفس المتصفح

كود :
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