' Declarations for Windows API calls
Private Declare Function ShellExecute _
  Lib  "shell32.dll"  _
  Alias  "ShellExecuteA"  _
  (ByVal hwnd As Long, _
   ByVal lpOperation As String, _
   ByVal lpFile As String, _
   ByVal lpParameters As String, _
   ByVal lpDirectory As String, _
   ByVal nShowCmd As Long) _
  As Long

'     Comments  : Launch a program
'     Parameters: lnghWnd - Handle to window of a form
'                 strProgram - Path to program to launch
'                 strParameters - Command line arguments for the program
'                 strStartIn - Default startup directory for the program
'                 eShowStyle - Constant indicating how the program
'                 is to be displayed (maximized, minimized etc.)
'     Returns   : - 1  on Success, or one of the values in the
'                 EnumShellExecuteErrors constants on failure
Dim ShellExecute As CShellExecute
Dim lngResult As EnumShellExecuteErrors

Set ShellExecute = New CShellExecute
lngResult = ShellExecute.LaunchProgram( _
               frmMain.hwnd, _
               PathToSpisano & NameExeFile, _
               foxParm, _
               PathToSpisano, _
               sesSW_HIDE)
sbrPan =  "ОЖИДАЙТЕ ЗАВЕРШЕНИЯ РАБОТЫ ВНЕШНЕЙ ПРОГРАММЫ..." 
While ShellExecute.StillExecuting = True
    DoEvents
Wend