TabControl1.SelectedTab.Controls.Add(Browser)
Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click Dim Browser As New WebBrowser Dim newTabPage As New TabPage("New Page") TabControl1.TabPages.Add(newTabPage) Browser.Name = "Web Browser" Browser.Dock = DockStyle.Fill newTabPage.Controls.Add(Browser) AddHandler Browser.ProgressChanged, AddressOf Loading AddHandler Browser.DocumentCompleted, AddressOf Done int = int + 1 Browser.GoHome() '新しく追加したタブが選択された状態にする。 TabControl1.SelectedTab = newTabPage End Sub