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
Public lTaskID as Long
 
Private Sub cmdTerminate_Click()
  Dim hTask         As Long
  Dim lResult       As Long
  hTask = OpenProcess(PROCESS_TERMINATE, 0&, lTaskID)
  lResult = TerminateProcess(hTask, 1&)
  lResult = CloseHandle(hTask)
End Sub