GetPhysicalMemory – Retrieving the physical memory amount

' Returns the physical memory amount, in bytes' Requires a reference to System.Management and the respective ImportsFunction GetPhysicalMemory() As Long    Dim mos As New ManagementObjectSearcher _        ("SELECT * FROM Win32_ComputerSystem")    Dim mo As ManagementObject    For Each mo In mos.Get()        Return Long.Parse(mo("TotalPhysicalMemory").ToString())    NextEnd Function