请教个webbrowser的问题。 单步执行成功，连续执行失败。
Private Sub Command3_Click()
Dim i As Integer
Dim vDoc, vTag1

WebBrowser1.Navigate "http://www.baidu.com"

While WebBrowser1.Busy
Wend

Set vDoc = WebBrowser1.Document

For i = 0 To vDoc.All.Length - 1

If UCase(vDoc.All(i).id) = "KW" Then
vDoc.All(i).Value = "hello"
End If

If UCase(vDoc.All(i).id) = "SU" Then
vDoc.All(i).Click
Exit For
End If

Next i
End Sub


单步调试的时候，有时候可以正常打开搜索hello页面，有些时候仍然在baidu首页。 连续执行就完全在百度首页。请问这是什么问题，多谢各路大侠指教！
[解决办法]
有个DocumentComplete事件吧，在那里试试
[解决办法]

引用:

Private Sub Command3_Click()
Dim i As Integer
Dim vDoc, vTag1

WebBrowser1.Navigate "http://www.baidu.com"

While WebBrowser1.Busy
Wend

Set vDoc = WebBrowser1.Document

F……

While WebBrowser1.Busy
Wend
最好修改为：
Do
DoEvents
Loop Until WebBrowser1.ReadyState = READYSTATE_COMPLETE