Imports System.Diagnostics
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim plist() As Process = Process.GetProcesses()
For Each prs As Process In plist
ListBox1.Items.Add(prs.ProcessName + " (" + prs.PrivateMemorySize64.ToString() + ")")
'ListBox1.Items.Add(prs.MainWindowTitle + " / (" + prs.PrivateMemorySize64.ToString() + ")")
Next
End Sub
End Class