Tuer un processus (par nom) (P/Invoke)

'########################################################
' Credits 3DotDev from http://3dotdevcoder.blogspot.fr/
'########################################################
Public Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As IntPtr, ByVal uExitCode As UInteger) As Integer

Public Sub KillProcess(Byval ProcName as string)
   For Each ObjPro As Process In Process.GetProcessesByName(ProcName)
       TerminateProcess(ObjPro.Handle, 1)
       Do Until ObjPro.HasExited = True
           Application.DoEvents()
       Loop
   Next
End Sub