[FONT=Courier New][SIZE=2]
Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As RamBilgileri)
Private Type RamBilgileri
boyut As Long
yuzderam As Long
toplamram As Long
bosram As Long
End Type
Private Sub Timer1_Timer()
Dim bilgiler As RamBilgileri
GlobalMemoryStatus bilgiler
Text1.Text = "% " & bilgiler.yuzderam 'yüzde ram kullanımı
Text2.Text = bilgiler.toplamram / 1024 / 1024 & " MB" 'toplam ram
Text3.Text = bilgiler.toplamram / 1024 / 1024 - bilgiler.bosram / 1024 / 1024 & " MB" 'kullanılan ram
Text4.Text = bilgiler.bosram / 1024 / 1024 & " MB" ' boş ram
End Sub[/SIZE][/FONT]



[FONT=Courier New][SIZE=2]Bir adet timer ve 4 adet textbox ekleyin, Timerin intervalini 1000 yapın[/SIZE][/FONT]