Ho trovato questo codice:

Dim temp As Process()
temp = Process.GetProcesses()

Dim x As Integer
For x = 0 To temp.Length - 1
Console.WriteLine("Process: " + temp(x).ProcessName)
Next

E' ottimo però non da l'estensione del programma in esecuzione.
Come fare per avere anche l'estensione?
Grazie, ...