delay?

Code:

---

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

Private Sub FreezeApp(ByVal dwSeconds As Long)
    dwSeconds = dwSeconds * 1000
    Start = GetTickCount
    Do While GetTickCount < Start + dwSeconds
    Loop
End Sub

---

Usage:

Code:

---

FreezeApp Val(Text1)
Print "Done"

---

I Think SleepEx Would Also Work. Anyway I'm Not Sure

Both Sleep and SleepEx will work, however SleepEx can be "signalled" to return earlier than stated.

We can also use VB's Timer function, thus eliminating the need for API.