只能模拟:
Option Explicit
Declare Function GetModuleUsage Lib "Kernel32" (ByVal hModule as long)
Function WaitShell( AppName as String)
Dim hMod as Integer
hMod = Shell(AppName, 1)
If (Abs(hMod) > 32) then
While (GetModuleUsage(hMod))
显示进度条代码
Wend
Else
MsgBox "Unable to start " & AppName
End If
End Function