Module Module1
Sub Main()
Dim processes As Process() = Process.GetProcessesByName("notepad")
For Each process As Process In processes
Console.WriteLine(process)
Next
End Sub
End Module
' run:
'
' System.Diagnostics.Process (notepad)
' System.Diagnostics.Process(notepad)