System VB.Net by API

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