怎么让WebBrowser1弹出页面在新窗口中打开

如何让WebBrowser1弹出页面在新窗口中打开？
应该在WebBrowser1_NewWindow2里面怎么写？？？
原先是用cancel=true
现在发现这样我点网页上的连接也被禁了



[解决办法]
自己再做一个窗口，弹出那个连接



[解决办法]
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Set ppDisp = WebBrowser2.Application ' 在指定窗口弹出
End Sub