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

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



------解决方案--------------------
自己再做一个窗口,弹出那个连接



------解决方案--------------------
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Set ppDisp = WebBrowser2.Application ' 在指定窗口弹出
End Sub