vb 判断webbrowser加载网页完成

晕了，楼上几位啊!
正确做法:
1.输入网址并打开
2.启动一个Timer，循环检查webbrowser.busy属性，如果为TRUE则代表还没打开
如果为FALSE，就打开了，然后关掉Timer

代码:
Private Sub Form_Load()
'打开并启动Timer1
WebBrowser1.Navigate "www.baidu.com"
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If WebBrowser1.Busy Then
Exit Sub
Else
'这里就打开了，可以在这加你的代码了
Timer1.Enabled = False
End If
End Sub

Private Sub Form_Load()
WebBrowser1.Visible=flase
WebBrowser1.Navigate "www.baidu.com"
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If WebBrowser1.Busy Then
Exit Sub
Else
WebBrowser1.Visible=true
Timer1.Enabled = False
End If
End Sub

NavigateComplete2.visible = true
msgbox“完成”

让webbrowser一直保持visible=false状态
然后在他的NavigateComplete2事件中让他为true就成了！