Dim I%
Private Sub Form_Load()
WebBrowser1(I).Navigate "www.hao123.com"
End Sub
Private Sub WebBrowser1_NewWindow2(index As Integer, ppDisp As Object, Cancel As Boolean)
I = I + 1
Load WebBrowser1(I)
Set ppDisp = WebBrowser1(I).Application
WebBrowser1(I).Visible = True
WebBrowser1(I).ZOrder
End Sub