把新链接的地址传回WebBrowser1
Dim strURL As String
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Cancel = True
WebBrowser1.Navigate strURL
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
strURL = Text
End Sub
Private Sub Command2_Click()
WebBrowser1.Navigate "http://www.
End Sub