你的这个代码最好加在这个里面,这样应该就不会出现错你说的错误了:
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, url As Variant)
'在这里可以调用网页载入成功后的操作过程
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, url As Variant)
'在这里可以调用网页载入成功后的操作过程
if (WebBrowser1.ReadyState >= WebBrowserReadyState.Loaded )
message("加载完成")
End Sub