程序代码：

Private Type MEMORYSTATUS
        '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

'检索当前内存状态的动态信息
Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)






Private Sub Form_Click()
    Dim mStaus As MEMORYSTATUS
    Call GlobalMemoryStatus(mStaus)
    Print "MEMORYSTATUS结构大小:" & mStaus.dwLength
    Print "已使用内存所占的百分比:" & mStaus.dwMemoryLoad
    Print "物理存储器的总字节数:" & mStaus.dwTotalPhys
    Print "空闲物理存储器的字节数:" & mStaus.dwAvailPhys
    Print "页文件包含的最大字节数:" & mStaus.dwTotalPageFile
    Print "用户模式分区中空闲内存大小:" & mStaus.dwAvailPageFile
    Print "用户模式分区大小:" & mStaus.dwTotalVirtual
    Print "当前进程中还剩下的自由区域的总和:" & mStaus.dwAvailVirtual
End Sub