Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS) 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

'''''''''''''''''''''''''''''' '''''''''''''''''''''' ''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''' '''''''''''''''''''''' 'Created By Dimitar Madzunkov(Macedonia - Gevgelija) '''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''' ''''''''''''''''''''''''''' '''''''''''''''''''''''''' Private Sub Command1_Click() Dim memstat As MEMORYSTATUS Call GlobalMemoryStatus(memstat) Label1.Caption = Format(memstat.dwAvailPageFile) Label2.Caption = Format(memstat.dwAvailPhys) Label3.Caption = Format(memstat.dwAvailVirtual) Label4.Caption = Format(memstat.dwLength) Label5.Caption = Format(memstat.dwMemoryLoad) Label6.Caption = Format(memstat.dwTotalPageFile) Label7.Caption = Format(memstat.dwTotalPhys) Label8.Caption = Format(memstat.dwTotalVirtual) End Sub