Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal blnheritHandle As Long, ByVal dwAppProcessId As Long) As Long
Private Declare Sub CloseHandle Lib "kernel32" (ByVal hPass As Long)
Para obtener el ProcessId debés usar GetWindowThreadProcessId
Private sub TerminarProceso(ByVal NumberId as long )
Const PROCESS_ALL_ACCESS = 0
xprocess = NumberId '
myProcess = OpenProcess(PROCESS_ALL_ACCESS, False, xprocess)
call TerminateProcess(myProcess, 0)
Call CloseHandle(myProcess)
end Sub