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
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.
Hmmm never seen that but then again it doesn’t look like a post I put too much thought into 🙂