TabControl1.TabPages.Add("New Tab")
TabControl1.TabPages(TabControl1.TabPages.Count -1).Controls.Add(webo)
webo.Dock = DockStyle.Fill

Dim browserCollection As New List(Of WebBrowser)
Private Sub AddNewTabToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddNewTabToolStripMenuItem.Click
Dim webBrowser As New WebBrowser
browserCollection.Add(webBrowser)
TabControl1.TabPages.Add("New Tab")
TabControl1.TabPages(TabControl1.TabPages.Count - 1).Controls.Add(browserCollection(TabControl1.TabPages.Count - 1))
browserCollection(TabControl1.TabPages.Count - 1).Dock = DockStyle.Fill
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
browserCollection.Add(New WebBrowser)
TabControl1.TabPages(TabControl1.TabPages.Count - 1).Controls.Add(browserCollection(TabControl1.TabPages.Count - 1))
browserCollection(TabControl1.TabPages.Count - 1).Dock = DockStyle.Fill
End Sub
Private Sub NavigateToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NavigateToolStripMenuItem.Click
Dim activeWebbrowser As WebBrowser = CType(browserCollection(TabControl1.SelectedIndex), WebBrowser)
activeWebbrowser.Navigate(InputBox("Navigate:", "Navigate", "http://"))
End Sub

