İşte kodlar hicbirşey yapmaya gerek yok:



Option Explicit
Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpbuffer As memorystatus)
Private Type memorystatus
dwlength As Long
dwmemoryload As Long 'belle?in kullanym yuzdesi
dwtotalphys As Long 'toplam fiziksel bellek kullanymy
dwavailphys As Long 'fiziksel bellekteki bo? miktar
dwtotalpagefile As Long
dwavailpagefile As Long
dwtotalvirtual As Long
dwavailvirtual As Long



End Type

Private Sub Form_Load()
Timer1.Interval = 1000


End Sub

Private Sub Timer1_Timer()


On Error Resume Next


Cls
Dim m As memorystatus
GlobalMemoryStatus m

FontSize = 15
ForeColor = &HFF&
Print "Bellek kullanymy %:", m.dwmemoryload

ForeColor = &HFF8080

Print "Toplam RAM :", m.dwtotalphys / 1024 / 1024&; "mb"

ForeColor = &H8080&

Print "Bo? RAM :", , m.dwavailphys / 1024 / 1024&; "mb"




End Sub
__________________