MemWin9X

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

Public Declare Sub GlobalMemoryStatus Lib "kernel32" _
(lpBuffer As MEMORYSTATUS)

Sub VisMemoria()
Dim Ms as MEMORYSTATUS
Ms.dwLength = Len(Ms)
MsgBox "Totale memoria fisica: " & Ms.dwTotalPhys & vbCr & _
"Memoria disponibile: " & Ms.dwAvailPhys
End Sub