调用了外部的一个EXE程序进行计算，我要在程序运行的时候出现一个提示框：程序正在运行
我现在的代码是这样的
        Dim pid As Long
        pid = Shell(App.Path & "\dai.exe", vbMinimizedFocus)
        '判断计算是否完成
        hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid)
        Do
        Call GetExitCodeProcess(hProcess, ExitCode)
        DoEvents
        Loop While ExitCode = STILL_ALIVE
        Call CloseHandle(hProcess)
        MsgBox ("计算已经结束")
这段代码只是可以当程序完成的时候出现一个提示，说计算完成，但是不能显示程序运行的状态。请问在里面什么位置伽依据代码就可以了？加什么样的呢？谢谢

就是在那里面加依据代码，然调用的程序运行的过程中给出一个提示框，说“程序正在运行”。运行结束给出提示“运行结束”。现在后边的功能实现了，前边的没有啊！