Time out execution

Hello does anybody now how to pause the execution of a program until certain condition becomes true
i already tried with a cicly but the program form then doen't respond and i want to know what can i do

thanks

the Sleep API function is your best bet as it pauses the execution within an event.

you can also do a busy wait which is not so hot, but if you don't have time to mess around and just want to get it out of the way. Here's the busy wait function to use if you're lazy

Add this code to a module:

Public Declare Function GetTickCount Lib "kernel32" () As Long

Public Function Pause(Value As Long) ‘ Value is the amount of time to pause
‘ for in milliseconds
Dim PreTick As Long

PreTick = GetTickCount

Do
DoEvents
If GetTickCount = PreTick + Value Then Exit Do
Loop

End Function