Private Sub Form_Load()
WebBrowser1.Navigate "www.sina.com"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If URL = "www.sina.com" Then MsgBox "加载完毕"
End Sub
Private Sub WebBrowser1_NavigateError(ByVal pDisp As Object, URL As Variant, Frame As Variant, StatusCode As Variant, Cancel As Boolean)
执行的代码
End Sub
webrowser的DOCUMENTCOMPLETE事件,