还是vb写浏览器的问题

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Set ppDisp = WebBrowser1.Object
End Sub<a ... target="_blank">是不会弹出窗口了
但是用javascript:window.open( ... ) 却会出现运行时间错误。还有阿，我不是不允许弹出窗口，而是希望弹出来的窗口还是显示在我的浏览器中，这个怎么做啊？