Introduction - If you have any usage issues, please Google them yourself
Open a new window with the form ... .../* pop a new window open in the form Private Sub WebBrowser1_NewWindow2 (ppDisp As Object, Cancel As Boolean) Dim NewWindow As frmMain Set NewWindow = New frmMain NewWindow.Show Set ppDisp = NewWindow.WebBrowser1.ObjectEnd Sub
Packet : 95302929vb.rar filelist
浏览器.frm
浏览器.frx
浏览器.vbp
浏览器.vbw
浏览器.exe