当你使用shell函数的时候，在vb程序里运行另一个可执行程序是很容易的。在本篇文章里，我将向你演示如何通过一种简单的方式来改进shell的功能。
shell接受两个自变量。第一个是将要运行的EXE文件的名称，包括其路径。第二个自变量用来指定程序的窗口样式。这个自变量是可选的；如果省略掉的话，程序就会以最小化的形式运行。这里所展现的技术在工作的时候不会理会程序的窗口样式，甚至程序没有窗口都可以。（关于窗口样式自变量的更多信息，请参考vb的帮助。）
shell会异步地运行目标程序，这就意味着执行可以在第二个程序执行完之前就返回vb程序。在很多情况下，这没有问题；但是在有的情况下，这可能就是问题了。一个例子是，当你的vb程序在某种程度上要依靠外壳程序完成其操作的结果。在这种情况下，你就需要某种方式来暂停vb程序，直到另一个程序结束。
第一步是取得外壳程序的句柄。shell函数会返回其程序的ID，或者PID。一旦有了这个，你就可以使用OpenProcess API函数来取得句柄：
Public Declare Function OpenProcess Lib "kernel32"
_
(ByValdwDesiredAccess As Long, _
ByValbInheritHandle As Long, _
ByValdwProcessId As Long) As Long
将&H100000（通常由常量SYNCHRONIZE来表示）这个值传递给第一个自变量，将0（作为一个长型）传递给第二个自变量。第三个自变量是shell函数返回的PID。函数所返回的值是代表外壳程序的Windows进程的句柄。有了这个句柄，你可以使用WaitForSingleObject API函数来暂停vb程序，直到外壳程序被终止。声明是：
Private Declare Function WaitForSingleObject Lib _
"kernel32" (ByValhHandle As Long, _
ByValdwMilliseconds As Long) As Long
第一个自变量是程序所等待的句柄，它从OpenProcess函数获得。第二个自变量是等待时间。如果你传递了一个毫秒值，那么函数就会在外壳程序结束的时候，或者在指定的时间间隔用完的时候返回，这取决于哪一种情况先发生。如果你想要函数一直等到外壳程序结束，那么就要传递&HFFFF（常常由常数INFINITE表示）这个值。
下面的示例代码显示了如何使用这些API来给程序设定外壳，并等待其完成。
Const SYNCHRONIZE = &H100000
Const INFINITE = &HFFFF
Private Sub shellProgramAndWait(ProgramName As String)
Dim hHandle As Long, pid As Long
txtStatus.Text = "Processing"
txtStatus.Refresh
pid = shell(ProgramName, vbNormalFocus)
If pid <> 0 Then
hHandle = OpenProcess(SYNCHRONIZE, 0&, pid)
WaitForSingleObjecthHandle, INFINITE
txtStatus.Text = "Finished"
Else
txtStatus.Text = "Error shelling " & ProgramName
End If
End Sub
WaitForSingleObject函数会有效地冻结你的vb程序，这是你需要注意的事情，这样用户就不会认为出了问题。例如在这段代码里，一个Text Box（文本框）控件向用户显示了一条消息。要注意，Refresh（刷新）方法的使用确保了该消息在程序进入等待状态之前被显示出来。然后，当外壳程序终止的时候，一个“已完成（Finished）”的消息就显示出来了。
