1、首先找到webbrowser 的 WebBrowser1_NewWindow 事件

2、定义 跳转地址变量 newurl
dim newurl as string
获取要跳转的地址
Dim newUrl = WebBrowser1.StatusText

3、让webbrowser1加载新网址
WebBrowser1.Navigate(newUrl) '加载新的网址

4、阻止外部浏览器捕获
e.Cancel = True '使外部浏览器无法捕获此事件

5、 ' 完整代码如下
Dim newUrl = WebBrowser1.StatusText
WebBrowser1.Navigate(newUrl) '加载新的网址
e.Cancel = True '使外部浏览器无法捕获此事件
