Enumerar procesos en memoria

Con el siguiente código podremos llenar un listview con los procesos que se ejecutan en un sistema.

Imports System.Diagnostics.Process
Public Class Form1
Dim Procesos As Process()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
ListView1.Items.Clear()
Dim Proceso As Process
Procesos = Process.GetProcesses()
Dim proclength As Integer
For proclength = 0 To Procesos.Length - 1
Proceso = Procesos(proclength)
Dim InfProceso(2) As String
InfProceso(0) = Proceso.ProcessName
InfProceso(1) = Proceso.Id.ToString()
InfProceso(2) = Proceso.PagedMemorySize64.ToString()
Dim process_Listview As ListViewItem = New ListViewItem(InfProceso)
ListView1.Items.Add(process_Listview)
Next
Catch ex As Exception
MessageBox.Show(ex.Message())
End Try
End Sub
End Class