VB6.0的 WebBrowser怎么实现等待5秒后自动刷新网页？

看是不是baidu就用 if url=">这是获取表格中的前两列，
Set tbs=Webbrowser1documentgetElementsByTagName("Table") '表格对象集合
Dim tb
For Each tb In tbs
If tbclassname="formTable" Then ' classname ="formTable"的表格
MsgBox tbcaptioninnertext '标题
Dim row
For Each row In tbrows '访问每一行
For i=0 To 1
MsgBox rowcells(i)innertext '访问每一行的前两个单元格
Next
Next
Exit For
End If
Next

---