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) Private Sub Form_Load() 'VbAndJava 1999/2000 'Guerrault Yonni 'E-Mail : Yonni4@iFrance.com Dim MemStat As MEMORYSTATUS GlobalMemoryStatus MemStat MsgBox "Vous avez" + Str$(MemStat.dwTotalPhys / 1024) + " Kb de mémoire totale et " + Str$(MemStat.dwAvailPageFile / 1024) + " Kb available PageFile memory." End Sub