<< 01 August 2007 | Home | 03 August 2007 >>

Zzzzzz....

Mental note to self: 

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub DoSleep(repeat As Integer, sleep_period As Long)
   Dim i As Integer 
   
   While i < repeat
      Call Sleep(sleep_period)
      i = i + 1
   Wend
   
   MsgBox "Awoke..."
End Sub

Add a comment RSS feed for responses to this blog entry
Posted by Mikkel Heisterberg on 02 August 2007 13:24:48 CEST #