用窗体打开新窗口... ...

/* 弹出新窗口在本窗体打开

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)

Dim NewWindow As frmMain

Set NewWindow = New frmMain

NewWindow.Show

Set ppDisp = NewWindow.WebBrowser1.Object

End Sub