高分求如何禁止IE自动弹出新窗口？？

自制浏览器，在指定一个WEBBROWER中找开指定的链接，可总有弹窗在IE（或MYIE）中出现，这些都不是我要找开的链接，求如何禁止IE自动弹出新窗口？？
我用的打开新窗口的代码如下：
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim MyNewW As form2
    Cancel = False
    Set MyNewW = New form2
    MyNewW.Visible = true
    MyNewW.Show
    Set ppDisp = MyNewW.WebBrowser1.Object
End Sub