Option Explicit

Declare Sub GlobalMemoryStatus Lib _
        "kernel32" (lpBuffer As _
        MEMORYSTATUS)
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 TypeOption Explicit

Option Explicit

Private Sub Form_Load()
Dim ms As MEMORYSTATUS

    ms.dwLength = Len(ms)
    GlobalMemoryStatus ms
    MsgBox "Total physical memory:" & ms.dwTotalPhys & vbCr _
            & "Available physical memory:" & ms.dwAvailPhys & vbCr _
            & "Memory load:" & ms.dwMemoryLoad

End Sub