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 Sub cmdTerminate_Click()
  Dim hTask         As Long
  Dim lResult       As Long
  Dim lTaskID      as long
  ' Eine Anwendung starten & TaskID merken
  lTaskID = Shell("notepad.exe", vbNormalFocus)
  ' Handle zum Prozess holen
  hTask = OpenProcess(PROCESS_TERMINATE, 0&, lTaskID)
  ' Prozess Terminieren
  lResult = TerminateProcess(hTask, 1&)
  ' Handle schließen
  lResult = CloseHandle(hTask)
End Sub