使vb的WebBrowser1不在新窗口打开的一段编辑，为什么会"画蛇添足"

在自编辑浏览器中，在网页上复制了下面这段代码，防止在新窗口打开。运行中出现点击需要的网页，打开的是缩小了的空白页。
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim frm As Form1
Set frm = New Form1
frm.Visible = True
Set ppDisp = frm.WebBrowser1.object
End Sub
将上段代码去掉一部分既：
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)   '防在新窗口打开
Set ppDisp = form1.WebBrowser1.object
End Sub
程序控制一切正常。
注：在Private Sub Load() 和Private Sub Form_Resize()的各设置是全屏窗口。
真的是"油多坏了菜"？请高手揭底。

[ 本帖最后由 中南红叶 于 2015-3-16 09:49 编辑 ]