Monitoring Memory

Has anyone got any decent code for displaying memory usage ?

Thanks.

using API

Code:

---

'in declarations
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
Declare Sub GlobalMemoryStatus Lib "Kernel32" (lpBuffer As MEMORYSTATUS)

'in code
dim memstat As MEMORYSTATUS
GlobalMemoryStatus memstat
MsgBox memstat.dwAvailPhys

---