Dim lPid As Long
            Dim lHnd As Long
            Dim lRet As Long
            'startjob steht für Druckfile mit Parametern (Adobe Reader)
            lPid = Shell(startjob, vbMinimizedFocus)
 
            If lPid <> 0 Then
 
               'Get a handle to the shelled process.
               lHnd = OpenProcess(SYNCHRONIZE, 0, lPid)
 
               'If successful, wait for the application to end and close the 
               ' handle.
               If lHnd <> 0 Then
                  lRet = WaitForSingleObject(lHnd, 10000)
                  CloseHandle (lHnd)
                  'TerminateTask (lPid)
               End If
 
 
            End If