Dim Retval, prid As Long, ShExInfo As SHELLEXECUTEINFO
 
  ' Startoptionen festlegen
  With ShExInfo
    .cbSize = Len(ShExInfo)
    .fMask = SEE_MASK_FLAG_NO_UI Or SEE_MASK_CLASSNAME Or _
      SEE_MASK_NOCLOSEPROCESS
    .hwnd = Application.hwnd 'GetDesktopWindow()
    .lpVerb = "open"
    .lpFile = "I:\Portable\resource hacker\ResHacker.exe" 
    '.lpParameters
    '.lpDirectory = "c:\"
    .nShow = SW_SHOWNORMAL
  End With
 
  ' Programm ausführen
  Retval = ShellExecuteEx(ShExInfo)
  If Retval = 0 Then
 
    ' bei Fehler Text ausgeben
    Select Case ShExInfo.hInstApp
    Case SE_ERR_ACCESSDENIED
      Err.Raise 5, "ShellExecuteEx", "Zugriff verweigert"
    Case SE_ERR_FNF
      Err.Raise 5, "ShellExecuteEx", "Datei nicht gefunden"
    Case SE_ERR_NOASSOC
      Err.Raise 5, "ShellExecuteEx", "Datei ist mit keinem Programm verknüpft"
    End Select
  Else
 
    ' andernfalls Programmdaten ausgeben
    'MsgBox "Datei gestartet: " & ShExInfo.lpFile
    'Debug.Print "Dateiklasse: " & ShExInfo.lpClass
    MsgBox "Prozess Handle: " & ShExInfo.hProcess
    MsgBox "Instanz Handle:" & ShExInfo.hInstApp
    'Call GetWindowThreadProcessId(ShExInfo.hProcess, prid)
    MsgBox prid
  End If