<< Ytria Summer Promotion | Home | What's up with the "me too" articles on developerWorks? >>

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

Responses[2] RSS feed for responses to this blog entry
Posted by Mikkel Flindt Heisterberg on 02 August 2007 13:24:48 CEST #


Avatar: Marco - Italy
Reply

Re: Zzzzzz....

Comment from Marco - Italy on 01 January 2011 12:29:13 CET #

Hi Mikkel,

I tried to copy your code in an agent in Lotus Notes 6.5 but I get this error message: (Declarations): 2: Unexpected: Sleep; Expected: Identifier.

In Lotus Notes there is already a statement "Sleep" may be causing the problem?

By the way: in an agent that we are writing at work the statement "Sleep" does not work: even if inserted at some point in the code, the entire Agent is paused from the beginning.

Many Thanks for your time.

 

Avatar: Mikkel Heisterberg
Reply

Re: Zzzzzz....

Comment from Mikkel Heisterberg on 02 January 2011 16:05:37 CET #
Hmmm never seen that but then again it doesn't look like a post I put too much thought into :-)

Add a comment Send a TrackBack