' 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