Encontre este codigo pero existe la posilidad de mostrarlo en un Progressbar igual como lo hace el RAMRUSH 1.0
Código:
Dim Arch As String
Arch = "C:\Memoria.vbs"
Close #1
Open Arch For Output As #1
Print #1, "FreeMem = Space(" & Slider1.Value * 10000 & ")"
Close #1
Shell ("rundll32.exe url.dll,FileProtocolHandler " & "C:\Memoria.vbs")
El codigo que encontre es la unica forma de liberar la memoria o hay otras alternativas?