With ShExInfo
    .cbSize = Len(ShExInfo)
    .fMask = SEE_MASK_FLAG_NO_UI Or SEE_MASK_CLASSNAME Or _
      SEE_MASK_NOCLOSEPROCESS
    .hwnd = Me.hwnd
    .lpVerb = "open"
    .lpFile = "c:\windows\notepad.exe"
    .lpParameters = "c:\autoexec.bat"
    .lpDirectory = "c:\"
    .nShow = SW_SHOWMAXIMIZED
  End With