请大家出出主意：由shell调用一外部程序时，如何跟踪该程序的执行进度，并由进度条在主程序（vb编）的程序界面上显示出来？

[ml_zhang]

[ploto]

sorry, 执行进度是什么意思？

[Un1]

可以在外部程序中加入SendMessage函数通告进度。

[mafangsan]

跟踪该程序的执行进度可以做到，但如果要用进度条显示出来，因为外部程序的执行总时间无法确定，所以进度条的Max无法设置。

[wqpaul]

如果调用的程序中没有向外部通知其进度的话那么是不可能的。Mission Impossible！！

[Bardo]

只能模拟：
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