Module Module1
Sub Main()
Dim processes As Process() = Process.GetProcesses()
For Each process As Process In processes
Console.WriteLine(process)
Next
End Sub
End Module
' run:
'
' System.Diagnostics.Process(AdblockPlusEngine)
' System.Diagnostics.Process(firefox)
' System.Diagnostics.Process(explorer)
' System.Diagnostics.Process(iexplore)
' System.Diagnostics.Process(notepad + +)
' ...