[color=green]' die 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
 
Privat Sub Command1_Click()
  Dim nDebug As Long, nHandle As Long
 
  nDebug = Shell("calc.exe")
 
  [color=green]' warten, bis SHELL beendet
  nHandle = OpenProcess(SYNCHRONIZE, False, nDebug)
  Call WaitForSingleObject(nHandle, INFINITE)
  Call CloseHandle(nHandle)
 
  [color=green]' und hier geht's weiter
End Sub

Gruß
Marcus