当shell结束后执行其他的操作

Option ExplicitPrivate Const WAIT_INFINITE = -1&Private Const SYNCHRONIZE = &H100000Private Declare Function OpenProcess Lib "kernel32" _  (ByVal dwDesiredAccess As Long, _   ByVal bInheritHandle As Long, _   ByVal dwProcessId As Long) As Long   Private Declare Function WaitForSingleObject Lib "kernel32" _  (ByVal hHandle As Long, _   ByVal dwMilliseconds As Long) As Long   Private Declare Function CloseHandle Lib "kernel32" _  (ByVal hObject As Long) As Long   Private Sub Command1_Click()   Dim hProcess As Long   Dim taskId As Long   Dim cmdline As String      cmdline = "notepad.exe"   taskId = Shell(cmdline, vbNormalFocus)      hProcess = OpenProcess(SYNCHRONIZE, True, taskId)   Call WaitForSingleObject(hProcess, WAIT_INFINITE)   CloseHandle hProcess      MsgBox "调用的程序结束."End Sub