Private Type STARTUPINFO 
  cb As Long 
  lpReserved As String 
  lpDesktop As String 
  lpTitle As String 
  dwX As Long 
  dwY As Long 
  dwXSize As Long 
  dwYSize As Long 
  dwXCountChars As Long 
  dwYCountChars As Long 
  dwFillAttribute As Long 
  dwFlags As Long 
  wShowWindow As Integer 
  cbReserved2 As Integer 
  lpReserved2 As Long 
  hStdInput As Long 
  hStdOutput As Long 
  hStdError As Long 
End Type 
 
Private Type PROCESS_INFORMATION 
  hProcess As Long 
  hThread As Long 
  dwProcessID As Long 
  dwThreadID As Long 
End Type 
 
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hH 
 <br>andle As Long, ByVal dwMilliseconds As Long) As Long 
Private Declare Function CreateProcessA Lib "kernel32" (ByVal lpAppli 
 <br>cationName As Long, ByVal lpCommandLine As String, ByVal lpProce 
s 
sAttr <br>ibutes As Long, ByVal lpThreadAttributes As Long, ByVal bIn 
h 
eritHandle <br>s As Long, ByVal dwCreationFlags As Long, ByVal lpEnvi 
r 
onment As Long, <br> ByVal lpCurrentDirectory As Long, lpStartupInfo  
A 
s STARTUPINFO, lpPro <br>cessInformation As PROCESS_INFORMATION) As L 
o 
ng 
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As 
 <br> Long) As Long 
Private Const NORMAL_PRIORITY_CLASS = &H20& 
Private Const INFINITE = -1& 
 
Public Sub ExecCmd(cmdline$) 
  Dim proc As PROCESS_INFORMATION 
  Dim start As STARTUPINFO 
  ' Инициализируем структуру STARTUPINFO: 
  start.cb = Len(start) 
  ' Запускаем приложение: 
  ret& = CreateProcessA(0&, cmdline$, 0&, 0&, 1&, NORMAL_PRIORITY_CLA 
 <br>SS, 0&, 0&, start, proc) 
  ' Ждем завершения запущенного приложения: 
  ret& = WaitForSingleObject(proc.hProcess, INFINITE) 
  ret& = CloseHandle(proc.hProcess) 
End Sub 
 
Private Sub Form_Load() 
  ExecCmd ("Notepad") 
  MsgBox "Работа Блокнота завершена", vbInformation, "Конец." 
End Sub