وی بی :

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

Private Sub command1_click()    Dim MS As MEMORYSTATUS    MS.dwLength = Len(MS)    GlobalMemoryStatus MS    Dim msg$    msg = "MEMORY STATUS" + vbCrLf    msg = msg + "============================" + vbCrLf    msg = msg + "Loaded memory = " + Format$(MS.dwMemoryLoad, "###,###,###,###") + " % used" + vbCrLf    msg = msg + "--------------------------------" + vbCrLf    msg = msg + "Physical memory = " + Format$(MS.dwTotalPhys / 1024, "###,###,###,###") + " Kb" + vbCrLf    msg = msg + "Free Physical memory = " + Format$(MS.dwAvailPhys / 1024, "###,###,###,###") + " Kb" + vbCrLf    msg = msg + "--------------------------------" + vbCrLf    msg = msg + "Paging file = " + Format$(MS.dwTotalPageFile / 1024, "###,###,###,###") + " Kb" + vbCrLf    msg = msg + "Free Paging file = " + Format$(MS.dwAvailPageFile / 1024, "###,###,###,###") + " Kb" + vbCrLf    msg = msg + "--------------------------------" + vbCrLf    msg = msg + "Virtual memory : " + Format$(MS.dwTotalVirtual / 1024, "###,###,###,###") + " Kb" + vbCrLf    msg = msg + "Free Virtual memory = " + Format$(MS.dwAvailVirtual / 1024, "###,###,###,###") + " Kb" MsgBox msg End Sub

منبع:www.cesblog.ir