Private Function Init(Interval As Long) As Long
    Init = SetTimer(0&, 0&, Interval, AddressOf TimerProc)
End Function
 
Private Sub Terminate(ByRef hTimer As Long)
    Call KillTimer(0, hTimer)
End Sub
 
Private Sub TimerProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal hTimer As _
  Long, ByVal dwTime As Long)
'code    
End Sub

Gruß
Dirk

--
?Get it right the first time