如何用VB整理内存

'*****************************************************************************************
'*****************************************************************************************
' Module Name : modMemory
' By : John Allan Lee
' zero42_NOSPAM_@quik.com
' (Take out _NOSPAM_ to email me)
' Date : August 1999
' Description : (See Returns)
' Inputs : None
' Returns : Physical Memory Total
' Physical memory Free
' Physical Memory Used
' Virtual Memory Total
' Virtual Memory Free
' Virtual Memory Used
' *Each with the option of being formatted (with commas) or unformatted (without commas)
' Assumes : Some prior knowledge about modules.
' You may want to add a 'k' to the end of the returned string. (ref: Examples)
' I prefer to do this