home *** CD-ROM | disk | FTP | other *** search
/ The Elite Hackers Toolkit / TheEliteHackersToolkitVolume1_1998.rar / HACKERS.BIN / appcraks / TIMER.ZIP / MODULE1.BAS < prev    next >
BASIC Source File  |  1997-11-12  |  486b  |  16 lines
  1. Attribute VB_Name = "Module1"
  2. Public Const TIME_ONESHOT = 0
  3. Public Const TIME_PERIODIC = 1
  4.  
  5. Declare Function timeKillEvent Lib "winmm.dll" (ByVal uID As Long) As Long
  6. Declare Function timeSetEvent Lib "winmm.dll" (ByVal uDelay As Long, ByVal uResolution As Long, ByVal lpFunction As Long, ByVal dwUser As Long, ByVal uFlags As Long) As Long
  7. Public FID&
  8.  
  9.  
  10. Sub TimeCallback(TimerID%, Msg%, dwUser&, dw1&, dw2&)
  11. Static i&
  12.     i = i + 1
  13.     Form1.Label2.Caption = i
  14. End Sub
  15.  
  16.