Código:
El codigo que encontre es la unica forma de liberar la memoria o hay otras alternativas? 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")