CodeItBetter Programming Another VB Programming Blog

'System & API - How to access the computers memory
Public Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MemoryStatus)
 
Public Type MemoryStatus
    dwLength As Long
    dwMemoryLoad As Long
    dwTotalPhys As Long
    dwAvailPhys As Long
    dwTotalPageFile As Long
    dwAvailPageFile As Long
    dwTotalVirtual As Long
    dwAvailVirtual As Long
End Type
 
Public memInfo As MemoryStatus
 
'Example of Physical Memory
Private Sub Form1_Load()
    Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
    Dim physical
    physical = memInfo.dwTotalPhys - memInfo.dwAvailPhys
    label1.Caption = "Total Physical Memory: " & memInfo.dwTotalPhys
    label2.Caption = "Physical Memory being used: " & physical
    label3.Caption = "Percentage of usage: " & physical / memInfo.dwTotalPhys * 100 & "%"
End Sub