【vb.net】【タブ型ブラウザ作成】リンクを押したときに新規タブで開くには

Question

前提・実現したいこと

vb.netでタブ型のブラウザを作成しています。
具体的に実現したいことは以下のとおりです。
１．指定したURLに該当するページを、formの中で表示する
２．ページ内でリンクをクリックしたとき、新規タブで表示する

※現時点では、1つのタブを追加するところを目標としています。
最終的には、動的に複数のタブを追加するところを目標としています。

発生している問題・エラーメッセージ

現状、１．はクリアしていますが、２．で躓いています。
具体的には、リンクをクリックしたとき、新規タブで表示することはできていますが、
遷移元のページ（タブ）の内容が消えてしまいます。

遷移元のページも表示させるには、どうすればよいでしょうか。

該当のソースコード

Public Class Form1
    Private WithEvents webBrowser1 As New WebBrowser()
    Dim TabCtrl As TabControl
    Dim TabPages() As TabPage

'１．指定したURLに該当するページを表示
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click

        webBrowser1 = New WebBrowser '新しくWebBrowserを作成

        TabCtrl = New TabControl '新しくTabControlを作成
        TabCtrl.Parent = Me '作成したTabControlをフォームに配置
        TabCtrl.Dock = DockStyle.Fill 'TabControlをフォーム全体にドッキング

        ReDim TabPages(0) '新しくTabPageコントロールを宣言
        TabPages(0) = New TabPage

        TabCtrl.Controls.Add(TabPages(0)) '作成したTabPageをTabControlに配置

        webBrowser1.Parent = TabPages(0) '作成したWebBrowserコントロールを、作成したTabPageへ配置

        webBrowser1.Dock = DockStyle.Fill
        webBrowser1.Name = "webBrowser1"
        Me.WindowState = FormWindowState.Maximized 'フォームの最大化

　　　　 webBrowser1.navigate("[指定するURL]")　'該当ページを表示
End Sub

'２．リンクが押されたとき、新規タブで開く
Sub webBrowser1_NewWindow(sender As Object, e As CancelEventArgs) Handles webBrowser1.NewWindow
        
        Dim webBrowser2 As New WebBrowser()
        webBrowser2 = CType(sender, WebBrowser)
        Dim txt As String = webBrowser2.StatusText

        ReDim Preserve TabPages(1) '新しくTabPageコントロールを宣言
        TabPages(1) = New TabPage

        TabCtrl.Controls.Add(TabPages(1)) '作成したTabPageをTabControlに配置
        TabCtrl.SelectedIndex = 1

        webBrowser2.Dock = DockStyle.Fill 'WebBorwserコントロールをタブページ全体にドッキング
        webBrowser2.Parent = TabPages(1) '作成したWebBrowserコントロールを、作成したTabPageへ配置

        If Not txt = Nothing Then
            webBrowser2.Navigate(txt)
        End If
        e.Cancel = True
End Sub
End Class

試したこと

TabPage、WebBrowserを配列にする/個別の変数にする

補足情報（FW/ツールのバージョンなど）

Answer 1

webBrowser1_NewWindow内で

Dim webBrowser2 As New WebBrowser()

した後に、

webBrowser2 = CType(sender, WebBrowser)

して、操作するコントロールを既存(多分タブ1の)ブラウザコントロールに変更しているからでは。

Comments

[sena1111]

draqさん

拙い質問でしたが、ご回答頂きありがとうございます。

ご指摘いただきました内容を踏まえ、
操作するブラウザコントロールを変更しないよう修正したところ、理想とした動作となりました。

具体的には、以下の通り修正しました。
-------------------------------------------------------------
(変更前)
webBrowser2 = CType(sender, WebBrowser)
Dim txt As String = webBrowser2.StatusText

(変更後)
'webBrowser2 = CType(sender, WebBrowser)　コメントアウト
Dim txt As String = CType(sender, WebBrowser).StatusText
-------------------------------------------------------------

ありがとうございました。
vb.netの初心者のため、今後も不明点が出てくるかと存じますので
今後とも宜しくお願いいたします。