Private Sub Command1_Click()
WebBrowser1.Navigate "http://" & Text1.Text
End Sub
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
'WebBrowser1.Height = ScaleHeight
'WebBrowser1.Width = ScaleWidth
'frm.WindowState = 0
'frm.Move frm.Left, frm.Top, frm.WebBrowser1.Width, frm.Height
'MsgBox frm.Top
'frm.Width = WebBrowser1.Width
End Sub
这个程序可以实现新开的窗口在自己的程序中打开.
本人在WINXP&VB6.0环境下调试成功