让一个已经运行的程序暂停一段时间

Question

如何让一个已经运行的程序暂停一段时间，几秒就可以了！

Answer 1

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
 
Private Sub Command2_Click()
Debug.Print Now
Sleep 3000'停止三秒
Debug.Print Now
End Sub

Answer 2

用钩子，在某个消息处，停几秒再吧再Call它本身函数。

Answer 3

具体点，如何实现，用什么API，代码也可以。

Answer 4

那把对方的那个进程降低可以吗？还有就是调用什么VB API来实现？

Answer 5

Public Sub s_WaitTime(ByVal p_sngWaitTime As Single)
    Dim sngBeforTime     As Single    sngBeforTime = Timer()
    
    'WAIT
    Do Until Timer() - sngBeforTime > p_sngWaitTime
    Loop
End Sub

Answer 6

TO LuBingLin(为什么？) ：
我是指别的程序，而不是自身。

Answer 7

有人知道吗？最好是具体代码，我有急用！
SetThreadPriority hThread, THREAD_PRIORITY_LOWEST
SetPriorityClass hProcess, IDLE_PRIORITY_CLASS
hThread和hProces怎么获得？是其他进程的，不是本进程的。