谁知道怎么做个自动刷新网页的工具？

我试了。可以重复刷的

Private Sub Command1_Click()
Dim vDoc, vTag
Dim I As Integer
Set vDoc = WB1.Document
List1.Clear
For I = 0 To vDoc.All.length - 1
If UCase(vDoc.All(I).tagName) = \"A\" Then
List1.AddItem vDoc.All(I).href
Select Case vDoc.All(I).href
Case \"http://publish.sina.com.cn/poll.php?p_id=238&t_id=193\"
vDoc.All(I).Click
End Select
End If
Next I
End Sub

Private Sub Command2_Click()
Command1_Click
Command2.Enabled = False
Command3.Enabled = True
Timer1.Enabled = True
End Sub

Private Sub Command3_Click()
Timer1.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
End Sub

Private Sub Form_Load()
WB1.Navigate \"谁知道怎么做个自动刷新网页的工具？ 网页怎么自动刷新啊??????? 自动刷新网页的问题 自动刷新的网页代码 怎么让网页在执行时不停的自动刷新？？ 打开网页每次都是上次打开时的内容，网页更新的内容不会自动刷新。怎么能自动刷新？ 部分网页不能自动刷新怎么设置 求自动刷新网页的JS代码 隐藏自己的网页自动刷新软件 网页自动刷新