Celková a volná paměť

Postup:
V deklarační části formuláře zapište:

Private 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

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

Na formulář přidejte dvě jmenovky a na událost Form_Load:

Private Sub Form_Load()

   Dim memoryInfo As MEMORYSTATUS

   GlobalMemoryStatus memoryInfo

   Label1.Caption = "Celková paměť: " & _
      Round(memoryInfo.dwTotalPhys / 1043321, 0) & "MB"
   Label2.Caption = "Volná paměť:  " & _
      Round(memoryInfo.dwAvailPhys / 1043321, 0) & "MB"

End Sub

Zpět