Microsoft Internet Controls
'Form name: frmBrowser
'WebBrowser Name: brwWebBrowserPrivate Sub brwWebBrowser_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim NewWindow As frmBrowser
Set NewWindow = New frmBrowser
NewWindow.Show
Set ppDisp = NewWindow.brwWebBrowser.Object
End Sub
'Form name: frmBrowser
'WebBrowser Name: brwWebBrowserPrivate Sub brwWebBrowser_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim NewWindow As frmBrowser
Set NewWindow = New frmBrowser
NewWindow.Show
Set ppDisp = NewWindow.brwWebBrowser.Object
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货