Vb.net WebBrowser-在默认浏览器而不是IE中打开新选项卡

我正在开发一个小应用程序，我有一个web浏览器，当它打开时会加载一个特定的url。如果单击该visual basic浏览器中的链接，则会在internet explorer中打开URL

`<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
    Partial Class Form2
        Inherits System.Windows.Forms.Form

        'Form overrides dispose to clean up the component list.
        <System.Diagnostics.DebuggerNonUserCode()> _
        Protected Overrides Sub Dispose(ByVal disposing As Boolean)
            Try
                If disposing AndAlso components IsNot Nothing Then
                    components.Dispose()
                End If
            Finally
                MyBase.Dispose(disposing)
            End Try
        End Sub

        'Required by the Windows Form Designer
        Private components As System.ComponentModel.IContainer

        'NOTE: The following procedure is required by the Windows Form Designer
        'It can be modified using the Windows Form Designer.  
        'Do not modify it using the code editor.
        <System.Diagnostics.DebuggerStepThrough()> _
        Private Sub InitializeComponent()
            Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form2))
            Me.WebBrowser1 = New System.Windows.Forms.WebBrowser()
            Me.Label1 = New System.Windows.Forms.Label()
            Me.Button1 = New System.Windows.Forms.Button()
            Me.SuspendLayout()
            '
            'WebBrowser1
            '
            Me.WebBrowser1.Location = New System.Drawing.Point(-1, -1)
            Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
            Me.WebBrowser1.Name = "WebBrowser1"
            Me.WebBrowser1.Size = New System.Drawing.Size(732, 529)
            Me.WebBrowser1.TabIndex = 0
            Me.WebBrowser1.Url = New System.Uri("http://fileice.net/download.php?t=regular&file=42mm6", System.UriKind.Absolute)
            '
                        'Label1
                        '
                        Me.Label1.AutoSize = True
                        Me.Label1.Location = New System.Drawing.Point(13, 535)
                        Me.Label1.Name = "Label1"
                        Me.Label1.Size = New System.Drawing.Size(105, 13)
                        Me.Label1.TabIndex = 1
                        Me.Label1.Text = "Awaiting activation..."
                        '
                        'Button1
                        '
                        Me.Button1.Location = New System.Drawing.Point(652, 531)
                        Me.Button1.Name = "Button1"
                        Me.Button1.Size = New System.Drawing.Size(62, 22)
                        Me.Button1.TabIndex = 2
                        Me.Button1.Text = "Exit"
                        Me.Button1.UseVisualStyleBackColor = True
                        '
                        'Form2
                        '
                        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
                        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
                        Me.ClientSize = New System.Drawing.Size(731, 557)
                        Me.Controls.Add(Me.Button1)
                        Me.Controls.Add(Me.Label1)
                        Me.Controls.Add(Me.WebBrowser1)
                        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
                        Me.Name = "Form2"
                        Me.Text = "Black Ops II Hack v4.1.6 - Activation"
                        Me.ResumeLayout(False)
                        Me.PerformLayout()

        End Sub
        Friend WithEvents WebBrowser1 As System.Windows.Forms.WebBrowser
        Friend WithEvents Label1 As System.Windows.Forms.Label
        Friend WithEvents Button1 As System.Windows.Forms.Button
    End Class` 

`_
部分类别表格2
继承System.Windows.Forms.Form
'窗体覆盖dispose以清理组件列表。
_
受保护的重写子处置（ByVal作为布尔值处置）
尝试
如果处理AndAlso组件不是什么，那么
components.Dispose（）
如果结束
最后
MyBase.Dispose（Dispose）
结束尝试
端接头
'是Windows窗体设计器所必需的
作为System.ComponentModel.IContainer的专用组件
'注意：Windows窗体设计器需要以下过程
'可以使用Windows窗体设计器对其进行修改。
'不要使用代码编辑器修改它。
_
私有子初始化组件（）
将资源作为System.ComponentModel.ComponentResourceManager=New System.ComponentModel.ComponentResourceManager（GetType（Form2））进行调整
Me.WebBrowser1=新系统.Windows.Forms.WebBrowser（）
Me.Label1=New System.Windows.Forms.Label（）
Me.Button1=新的System.Windows.Forms.Button（）
Me.SuspendLayout（）
'
“WebBrowser1
'
Me.WebBrowser1.Location=新系统.Drawing.Point（-1，-1）
Me.WebBrowser1.MinimumSize=新系统.图纸.尺寸（20,20）
Me.WebBrowser1.Name=“WebBrowser1”
Me.WebBrowser1.Size=新系统.图纸.尺寸（732529）
Me.WebBrowser1.TabIndex=0
Me.WebBrowser1.Url=新系统.Uri（“http://fileice.net/download.php?t=regular&file=42mm6“，System.UriKind.Absolute）
'
“标签1
'
Me.Label1.AutoSize=True
Me.Label1.Location=新系统.图纸.点（13535）
Me.Label1.Name=“Label1”
Me.Label1.Size=新系统图纸尺寸（105,13）
Me.Label1.TabIndex=1
Me.Label1.Text=“等待激活…”
'
“按钮1
'
Me.Button1.Location=新系统图点（652531）
Me.Button1.Name=“Button1”
Me.Button1.Size=新系统图纸尺寸（62,22）
Me.Button1.TabIndex=2
Me.Button1.Text=“退出”
Me.Button1.UseVisualStyleBackColor=真
'
“表格2
'
Me.AutoScaleDimensions=新系统.Drawing.SizeF（6.0！13.0！）
Me.AutoScaleMode=System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize=新系统.Drawing.Size（731557）
Me.Controls.Add（Me.Button1）
Me.Controls.Add（Me.Label1）
Me.Controls.Add（Me.WebBrowser1）
Me.Icon=CType（resources.GetObject（$this.Icon））、System.Drawing.Icon）
Me.Name=“Form2”
Me.Text=“黑色行动II黑客v4.1.6-激活”
Me.ResumeLayout（错误）
我，执行布局
端接头
Friend WithEvents WebBrowser 1作为System.Windows.Forms.WebBrowser
Friend with Events Label1作为System.Windows.Forms.Label
Friend WithEvents按钮1作为System.Windows.Forms.Button
末级`

---

有没有一种方法可以将其设置为所有在VB浏览器中打开的链接都默认打开，而不是IE？

有一个类似的问题。这些链接很可能包括

\u blank

作为其目标，并建议了两种解决方案。（它是用C#写的，但可以翻译成VB。）可能是visual basic上的“我是个傻瓜”的副本……你能编辑我的代码吗？我已经尝试了建议的解决方案。。。。但是我失败了：）有人能帮我吗？