Visual Basic - Saber si un programa ha finalizado

Estoy programando en Visual Basic 5.0 sobre Windows 2000 Profesional. Necesito llamar a un programa externo y mi aplicación no debe continuar hasta que este programa finalice.

He probado con las API's OpenProcess y GetExitCodeProcess, pero no consigo ningún resultado pues ambas funciones me devuelven siempre el valor 0.

¿ Cómo puedo saber si la función externa ha concluido su ejecución ?

Un saludo y gracias.

Decime tu email y te mando un ejemplo.

Afogutu.

Este ejemplo lo saqué del guille.

le pasas nada mas que la ruta del archivo que querés ejecutar y listo.

te doy un consejo. si lo llamas desde un form hace lo siguiente.

me.enabled = false
ejectuararchivo
me.enabled = true

'Las declaraciones van en un módulo
Private Declare Function OpenProcess Lib "kernel32" _
(ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long

Private Declare Function GetExitCodeProcess Lib "kernel32" _
(ByVal hProcess As Long, lpExitCode As Long) As Long

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Const STILL_ACTIVE = &H103
Const PROCESS_QUERY_INFORMATION = &H400

'Un procedimiento para ejecutar y esperar a que termine
Public Sub ExecCmdNoFocus(ByVal CmdLine As String)
'Esperar a que un proceso termine,
'la ventana se mostrará minimizada sin foco
Dim hProcess As Long
Dim RetVal As Long

'The next line launches CmdLine as icon,
'captures process ID
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, _
Shell(CmdLine, vbMinimizedNoFocus))
Do
'Get the status of the process
GetExitCodeProcess hProcess, RetVal
'Sleep command recommended as well
'as DoEvents
DoEvents
Sleep 100
'Loop while the process is active
Loop While RetVal = STILL_ACTIVE
End Sub