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