Dim processList() As Process processList = Process.GetProcessesByName("notepad") For Each proc As Process In processList proc.Kill() Next