Private Declare Function CloseHandle Lib "kernel32" (ByVal _
        hObject As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal _
        dwDesiredAccess As Long, ByVal bInheritHandle As _
        Long, ByVal dwProcessId As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal _
        hProcess As Long, ByVal uExitCode As Long) As Long
 
Const PROCESS_TERMINATE = &H1
 
Private TaskID          As Long
 
Private Sub cmdStartApp_Click()
  ' Task starten & TaskID merken
  TaskID = Shell("notepad.exe", vbNormalFocus)
End Sub
 
Private Sub cmdTerminate_Click()
  ' Task terminieren
  Dim hTask         As Long
  Dim lResult       As Long
 
  hTask = OpenProcess(PROCESS_TERMINATE, 0&, TaskID)
  lResult = TerminateProcess(hTask, 1&)
  lResult = CloseHandle(hTask)
End Sub