Imports System.Threading
Public Class MainClass
Public Shared Sub Main()
Dim ProcessList As System.Diagnostics.Process()
ProcessList = System.Diagnostics.Process.GetProcesses()
Dim Proc As System.Diagnostics.Process
For Each Proc In ProcessList
Console.WriteLine("Name {0} ID {1}", _
Proc.ProcessName, Proc.Id)
Next
End Sub
End Class