Private Declare Function SetTimer Lib "user32" (ByVal hwnd As _
        Long, ByVal nIDEvent As Long, ByVal uElapse As Long, _
        ByVal lpTimerFunc As Long) As Long
 
Private Declare Function KillTimer Lib "user32" (ByVal hwnd As _
        Long, ByVal nIDEvent As Long) As Long

Gruß
Dirk

--
?Get it right the first time