Option ExplicitPrivate Declare Function OpenProcess Lib "kernel32" _(ByVal dwDesiredAccess As Long, _ByVal bInheritHandle As Long, _ByVal dwProcessId As Long) As LongPrivate Declare Function WaitForSingleObject Lib _"kernel32" (ByVal hHandle As Long, _ByVal dwMilliseconds As Long) As LongConst SYNCHRONIZE = &H100000Const INFINITE = &HFFFF'auto subPrivate Sub ShellProgramAndWait(ProgramName As String)Dim hHandle As Long, pid As Longpid = Shell(ProgramName, vbNormalFocus)If pid <> 0 ThenhHandle = OpenProcess(SYNCHRONIZE, 0&, pid)WaitForSingleObject hHandle, INFINITEElseMsgBox "Error shelling " & ProgramNameEnd IfEnd Sub
福报不够的人，就会常常听到是非；
