hola colega,
he aqui un codigo que te puede servir.
en el modulo de clase copiate este codigo:
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
Const STILL_ACTIVE = &H103
Const PROCESS_QUERY_INFORMATION = &H400
Public Sub Ejecutar(ByVal CmdLine As String)
Dim hProcess As Long
Dim RetVal As Long
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, Shell(CmdLine, vbMinimizedNoFocus))
Do
GetExitCodeProcess hProcess, RetVal
DoEvents
' Sleep 100
Loop While RetVal = STILL_ACTIVE
End Sub
y en tu forma donde abres las ventanas esto
Call Ejecutar(App.Path + "\fuera.bat")
por ejemplo,este codigo ejecutara la ventana hasta que termine el proceso, luego habres la siguiente..
saludos
Desde Guatemala.