[color=green]'APIs
Private Declare Function WaitForSingleObject Lib "kernel32" _
  (ByVal hHandle As Long, ByVal dwMilliseconds As Long) _
  As Long
 
Private Declare Function CloseHandle Lib "kernel32" (ByVal _
  hObject As Long) As Long
 
Private Declare Function OpenProcess Lib "kernel32" (ByVal _
  dwDesiredAccess As Long, ByVal bInheritHandle As _
  Long, ByVal dwProcessId As Long) As Long
 
Const INFINITE = -1&
Const SYNCHRONIZE = &H100000
 
Private Sub Demo()
  lngDebug = Shell("calc.exe")
 
  [color=green]'warten, bis CLALC.EXE beendet
  lngHandle = OpenProcess(SYNCHRONIZE, False, lngDebug)
  Call WaitForSingleObject(lngHandle, INFINITE)
  Call CloseHandle(lngHandle)
End Sub

Gruß
Marcus