Kill Process from PID

Code:

Public Function KillByPID(PID As Long)
Dim lOpen As Long

    lOpen = OpenProcess(PROCESS_ALL_ACCESS, 0, PID)

    Call terminateprocess(lOpen, 0)

End Function