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