' Programmaufruf
  cmdline$ = "cmd.exe"
  ret = CreateProcess(0&, cmdline$, 0&, 0&, True, NORMAL_PRIORITY_CLASS, 0&, _
    0&, start, proc)
  If ret = 0 Then
    MsgBox "Anwendung kann nicht gestartet werden: " & Err.LastDllError, _
      vbCritical
  Else
    MsgBox "Fremdanwendung gestartet, Handle = " & ret
  End If
      ' Send it.
  StuffToWrite = "start notepad" & vbNewLine
  ret = WriteFile(hWritePipe3, ByVal StuffToWrite, Len(StuffToWrite), _
    bytewritten, 0&)
  If ret = 0 Then
    MsgBox "Anwendung wurde nicht beschrieben: " & Err.LastDllError
  Else
    MsgBox "Anzahl übergebene Zeichen: " & bytewritten
  End If
    StuffToWrite = "exit" & vbNewLine
  ret = WriteFile(hWritePipe3, ByVal StuffToWrite, Len(StuffToWrite), _
    bytewritten, 0&)