VB6.0 怎么通过Timer1定时刷新页面资料

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來實現。
不知道有沒有人能提供一點思路。
公司原本是買別人的電子屏，現在不買要我來實現。鬱悶