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
Starting Heap Space: 279556 Heap Space After Arrays: 587808 Final Heap Space: 283804