link openen in nieuw tabblad in plaats van nieuw venster

[steenhouwerij]

Goedemiddag,

Ik ben een webbrowser aan het maken met tabbladen.
nu heb ik onderstaande code, echter als ik de browser start en een link aanklik,
dan opent deze link in een nieuw venster van IE. Ik wil graag dat de link zich opent in een nieuw tabblad.

Kan iemand mij verder helpen?

Public Class Form1



#Region "Tabs"
Public Sub AddTab(ByRef URL As String, ByRef TabControl As TabControl)
Dim NewBrowser As New CustomBrowser
Dim NewTab As New TabPage
NewBrowser.Tag = NewTab
NewTab.Tag = NewBrowser
TabControl.TabPages.Add(NewTab)
NewTab.Controls.Add(NewBrowser)
NewBrowser.Dock = DockStyle.Fill
NewBrowser.Navigate(URL)
End Sub
#End Region

#Region "CustomBrowser Navigation"
Private Sub btnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBackward.Click
Dim WB As CustomBrowser = Me.TabControl1.SelectedTab.Tag
WB.GoBack()
End Sub

Private Sub btnForward_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnForward.Click
Dim WB As CustomBrowser = Me.TabControl1.SelectedTab.Tag
WB.GoForward()
End Sub

Private Sub btnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRefresh.Click
Dim WB As CustomBrowser = Me.TabControl1.SelectedTab.Tag
WB.Refresh()
End Sub

Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
Dim WB As CustomBrowser = Me.TabControl1.SelectedTab.Tag
WB.Stop()
End Sub


Private Sub btnAddTab_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNewTab.Click
AddTab("about:blank", TabControl1)
End Sub

Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click
GO()
End Sub

Sub GO()
Dim WB As CustomBrowser = Me.TabControl1.SelectedTab.Tag
If cboURL.Text = "about:app" Then
WB.DocumentText = "<title>About Page</title><h1></h1>"
Exit Sub
End If
Select Case True

Case Else
WB.Navigate("http://orderbeheer/main.aspx")
End Select
End Sub




#End Region

Private Sub TabControl1_Selected(ByVal sender As Object, ByVal e As System.Windows.Forms.TabControlEventArgs) Handles TabControl1.Selected
Dim WB As CustomBrowser = Me.TabControl1.SelectedTab.Tag
Me.cboURL.Text = WB.Url.AbsoluteUri
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AddTab("http://orderbeheer/klanten_openstaand.aspx", TabControl1)

End Sub

Private Sub cboURL_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cboURL.KeyDown
If e.KeyData = Keys.Return Then
GO()
End If
End Sub

Private Sub Form1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDoubleClick
Dim WB As CustomBrowser = Me.TabControl1.SelectedTab.Tag
End Sub

Private Sub TabControl1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged

End Sub







Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
AddTab("about:blank", TabControl1)
End Sub


Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If TabControl1.TabCount > 1 Then TabControl1.TabPages.Remove(TabControl1.SelectedTab)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

AddTab("http://orderbeheer/beheer.aspx", TabControl1)

End Sub


Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
AddTab("http://orderbeheer/klanten.aspx", TabControl1)
End Sub

Private Sub OverzichtToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OverzichtToolStripMenuItem.Click

End Sub
End Class

Public Class CustomBrowser
Inherits WebBrowser

Public Sub New()
Me.ScriptErrorsSuppressed = True
End Sub

Private Sub DocCompleted() Handles Me.DocumentCompleted
Dim TP As TabPage = Me.Tag
If Me.DocumentTitle.Length > 15 Then
TP.Text = Me.DocumentTitle.Substring(0, 14) & "..."
Else
TP.Text = Me.DocumentTitle
End If

End Sub

Private Sub CustomBrowser_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles Me.Navigated
Dim WB As CustomBrowser = Form1.TabControl1.SelectedTab.Tag
Form1.cboURL.Text = WB.Url.AbsoluteUri
Form1.btnBackward.Enabled = WB.CanGoBack
Form1.btnForward.Enabled = WB.CanGoForward
Form1.btnStop.Enabled = False

If Not Form1.cboURL.Items.Contains(e.Url.Host) And Not e.Url.Host.Trim = "" Then
Form1.cboURL.Items.Add(e.Url.Host)
End If




End Sub

Private Sub CustomBrowser_Navigating(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles Me.Navigating
Form1.btnStop.Enabled = True



End Sub


End Class