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 TerminateProcess(lTaskId)
  Dim hTask         As Long
  Dim lResult       As Long
 
    hTask = OpenProcess(PROCESS_TERMINATE, 0&, CLng(lTaskId))
    lResult = TerminateProcess(hTask, 1&)
    lResult = CloseHandle(hTask)
End Sub