' im Modul:
Public Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" ( _
  ByVal _
         lpApplicationName As Long, ByVal lpCommandLine As String, _
         lpProcessAttributes As Any, lpThreadAttributes As Any, _
         ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, _
         ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, _
         lpStartupInfo As Any, lpProcessInformation As Any) As Long

' auf der Form:
Private Type SECURITY_ATTRIBUTES
    nLength As Long
    lpSecurityDescriptor As Long
    bInheritHandle As Long
End Type
' ...
 Dim sa As SECURITY_ATTRIBUTES
 
  sa.nLength = Len(sa)
  sa.bInheritHandle = 1&
  sa.lpSecurityDescriptor = 0&
 
  ' A pipe of redirection of STDOUT
  ret = CreatePipe(hReadPipe1, hWritePipe1, sa, 0&)
  If ret = 0 Then MsgBox "Konnte Pipe STDOUT nicht öffnen: " & Err.LastDllError
  ' A pipe of redirection of STDERR
  ret = CreatePipe(hReadPipe2, hWritePipe2, sa, 0&)
  If ret = 0 Then MsgBox "Konnte Pipe STDERR nicht öffnen: " & Err.LastDllError
  ' A pipe of redirection of STDIN
  ret = CreatePipe(hReadPipe3, hWritePipe3, sa, 0&)
  If ret = 0 Then MsgBox "Konnte Pipe STDIN nicht öffnen: " & Err.LastDllError
' ...
ret = CreateProcess(0&, cmdline$, sa, sa, 1&, NORMAL_PRIORITY_CLASS, 0&, 0&, _
  start, proc)

Zitat:

doch umso tiefer enttäuscht über das Ergebnis, welches leider keins war