Visualizza tutti i processi in esecuzione

Try
With lstProcessesDataSource ' e' una listbox
.ValueMember = "MainModule"
.DisplayMember = "ProcessName"
.DataSource = Process.GetProcesses
End With
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.OKOnly, Me.Text)
End Try