Ram'in yüzde kaçı kullanılıyor, fiziksel bellek ne kadar ve ne kadarı boş. 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" Private Sub Form_load Timer1. Interval = 1000 End Sub Private Sub Timer1_Timer Cls Dim m As MEMORYSTATUS GlobalMemoryStatus m Print "Bellek Kullanimi %:", m. dwMemoryLoad Print "Toplam RAM:", , m. dwTotalPhys / 1024 / 1024 & " MB" Print "Bos RAM:", , m. dwAvailPhys / 1024 / 1024 & "MB" End Sub Mx-