VB6.0 如何通过Timer1定时刷新页面资料
如何通过Timer1刷新资料。


Private Sub Timer1_Timer()
If TimeCount = 3600 Then
TimeCount = 0
Call WorkBusying
'刷新的过程
Call cmdRefresh_Click
Else
TimeCount = TimeCount + 1
End If
End Sub

请问
如果我想每隔3分钟刷新一次Form_Load()页面，
需要如何修改下！
[解决办法]
Private Sub Form_Load()
Timer1.Interval = 6000
End Sub

Private Sub Timer1_Timer()
If strDMTag = "1501" Then
TimeCount = TimeCount + 1
If TimeCount = 1 Then
Call cmdRefresh_Click
TimeCount = 0
End If
End If
End Sub
整了下好像可以，
有是如果多，超示的介面。我如果TDBGrid1中的示或者循示。
假可不可以指定TDBGrid1每次在面上示的行，超的也用Timer1。
不知道有有人能提供一思路。
公司原本是人的子屏，在不要我。