webbrowser 弹出页面如何指定父窗口? <弹出页面中脚本中带有opener时出错的问题>

Question

我 使用NewWindow2事件,将页面弹出窗口捕获吼,在brwOpen打开
Private Sub Web1_NewWindow2(ppDisp As Object, Cancel As Boolean)     brwOpen.Visible = True
      brwOpen.RegisterAsBrowser = True
    brwOpen.Silent = True     Set ppDisp = brwOpen.object
End Sub
这样 brwOpen打开了弹出窗口,并可以正确执行页面上的脚本.
可是当我刷新Web1以后,再执行brwOpen的脚本就会说没有p这个对象
脚本中 这样定义p对象:
var p=opener
请问怎么解决?