Module Module1
Sub Main()
Console.WriteLine("Starting Heap Space: " & GC.GetTotalMemory(False))
Dim BigArray(50000) As Byte
Dim BiggerArray(250000) As Byte
Console.WriteLine("Heap Space After Arrays: " & GC.GetTotalMemory(False))
BigArray = Nothing
Console.WriteLine("Final Heap Space: " & GC.GetTotalMemory(True))
End Sub
End Module
|