Show / List all active Process running in ur system (VB.net)

Module Processes
Dim x As Integer = 0
Sub Main()
Dim pList() As System.Diagnostics.Process = _
System.Diagnostics.Process.GetProcesses
For Each proc As System.Diagnostics.Process In pList
System.Console.WriteLine(proc.ProcessName & " " & proc.Id)
x += 1
Next
System.Console.WriteLine(vbCrLf + "*** Number of processes: " & x)
System.Console.ReadLine()
End Sub
End Module

-
We are using DOS style for the output. To use Windows style use List menu and change a bit in this code.
Howz this???