VB中WebBrowser怎样避免打开新窗口？

Question

Set ppDisp = web.object'用新的浏览网页
web.Navigate "about:blank"
如果不像浏览就怎么处理都好了
这里的web是另一个webbrowser控件

Answer 1

Private Sub wbBack_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
    wbMain.Navigate URL
    Cancel = True
End SubPrivate Sub wbMain_NewWindow2(ppDisp As Object, Cancel As Boolean)
    Set ppDisp = wbBack.Object
End Sub