Détecter si un processus (par nom) est en cours

'########################################################
' Credits 3DotDev from http://3dotdevcoder.blogspot.fr/
'########################################################
Public Function ProcessIsRunning(ByVal ProcName As String) As Boolean
    For Each ObjPro As Process In Process.GetProcesses
         If ObjPro.ProcessName.Contains(ProcName) Then
             Return True
         End If
    Next
    Return False
End Function