如何知道内存的使用情况

Question

'声明
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 TypeDeclare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)Private Sub Form_Click()
          Dim m As MEMORYSTATUS
          m.dwLength = Len(m)
          GlobalMemoryStatus m
          Print "数据结构的长度", m.dwLength
          Print "内存使用百分比", m.dwMemoryLoad
          Print "实际内存总字节数 ", m.dwTotalPhys
          Print "可用的实际内存字节数", m.dwAvailPhys
          Print "分页文件总字节数", m.dwTotalPageFile
          Print "分页文件可用字节数", m.dwAvailPageFile
          Print "虚拟内存的总字节数", m.dwTotalVirtual
          Print "可用的虚拟内存字节数", m.dwAvailVirtual
End Sub