ник: osmor
вот это не поможет?
http://hiprog.com/index.php?option=com_content&task=view&id=251661564&Itemid=35
есть еще API
Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long