01.Imports System.Diagnostics
02.
03.Public Class Form1
04.
05. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
06. Dim plist() As Process = Process.GetProcesses()
07.
08. For Each prs As Process In plist
09. ListBox1.Items.Add(prs.ProcessName + " (" + prs.PrivateMemorySize64.ToString() + ")")
10. Next
11. End Sub
12.End Class
