Option Explicit
 
Private Sub task1()
 
  Static state As Long
  Dim i As Long
 
  For i = state + 1 To 1234567
    state = i
    Debug.Print "task1: " & CStr(i)
    DoEvents
    If (i Mod 95) = 0 Then Exit Sub
  Next i
 
  If state = 1234567 Then
    state = 0
  End If
 
End Sub
 
Private Sub task2()
 
  Static state As Long
  Dim i As Long
 
  For i = state + 1 To 123456
    state = i
    Debug.Print "task2: " & CStr(i)
    DoEvents
    If (i Mod 35) = 0 Then Exit Sub
  Next i
 
  If state = 123456 Then
    state = 0
  End If
 
End Sub
 
Private Sub tmrTask1_Timer()
 
  task1
 
End Sub
 
Private Sub tmrTask2_Timer()
 
  task2
 
End Sub

Gruß
Dirk

--
?Get it right the first time