Kill System Processors using vb.net

private sub killDuplicateProcess(pro_name as string)
Dim pro() As Process = System.Diagnostics.Process.GetProcessesByName(pro_name)

For Each i As Process In pro
i.Kill()
Next

end sub

''This function kill the process of given name in system