Dim i, j As Integer
Private Sub Form_Load()
init
End Sub
Public Sub init()
Timer1.Interval = 10000 '10 seconds
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
'as long as timer1 is enabled, your program jumps here
'every 10 seconds or whatever you set the interval to.
DoEvents 'safety valve.
For i = 1 To 1000
For j = 1 To 1000
Next j
Next i
'after executing the above code, your program will jump
'here again after 10 seconds.
End Sub
You may have to disable the timer once your code within the timer1_timer() sub starts executing and re-enable it upon completion. Ten seconds isn't very long depending upon what your code is doing.