VB shell执行程序，直到执行完毕

shell执行程序，直到执行完毕为止：

MOD代码

Option Explicit

'# use to shell process #
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
'# use to shell process #

Public Sub ShellAndWait(ByVal strProg As String, ByVal lStyle As VbAppWinStyle)
    Dim ProcessId As Long
    Dim ProcessHandle As Long
    Const Access As Long = &H100000
    ProcessId = Shell(strProg, lStyle)
    Do
        P