[sooriaty03]

السلام عليكم ورحمة الله وبركاته
تفضل أخي الكريم

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        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 WebBrowser
        Web_Browser.Url = New Uri("http://www.google.com")
        Web_Browser.Dock = DockStyle.Fill
        Tab_Page.Controls.Add(Web_Browser)
    End Sub

بالتوفيق