我曾这样写,没问题的·
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim newform As New Form1
Set ppDisp = newform.WebBrowser1.Object
newform.Show
End Sub
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim newform As New Form1
Set ppDisp = newform.WebBrowser1.Object
newform.Show
End Sub
我发email给你