自定义浏览器中使新弹出链接在自己的窗口而不是默认浏览器中打开

假设放置Webbrowser组件的是Form1，那么在这个webbrowser的NewWindow2事件中加入以下代码：

Dim frmWB As Form1
Set frmWB = New Form1

frmWB.WebBrowser1.RegisterAsBrowser = TRUE

Set ppDisp = frmWB.WebBrowser1.Object
frmWB.Visible = True

就可以新开一个自己的窗口浏览用户点击的连接了。