等待程序运行完再执行操作

我们在VB中Shell一个程序时，想Shell的这个程序执行完后再运行的自己的代码，主要思路是监视进程来做到这点，操作如下：

声明：

Const SYNCHRONIZE = &H100000
Const INFINITE = &HFFFFFFFF
Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
例子：（以记事本为例）
Dim pId As Long, pHnd As Long
pId = Shell("Notepad", vbNormalFocus)
pHnd = OpenProcess(SYNCHRONIZE, 0, pId) '' 取得 Process Handle
If pHnd <> 0 Then
Call WaitForSingleObject(pHnd, INFINITE) '' 等待程序结束
Call CloseHandle(pHnd)
End If