Как узнать, когда программа завершила работу? - VB

Формулировка задачи:

Из программы на VB 6.0 запускаю другую и по окончании работы второй программы хочу выполнить некоторые действия. Как можно узнать, когда вторая программа завершила работу? Заранее благодарен.

Решение задачи: «Как узнать, когда программа завершила работу?»

textual
                            Листинг программы 
                        

                            Declare Function GetProcessVersion Lib "kernel32" (ByVal ProcessId As Long) As Long
 
Public Sub ExecuteAndWait(CommandLine As String, WinStyle As Integer)
Dim Pid As Long
Pid = Shell(CommandLine$, WinStyle)
While GetProcessVersion(Pid) <> 0
 DoEvents
Wend
MsgBox "Выполняй другие действия!", vbInformation, "Уже можно"
End Sub
                        