Imports System
Public Class Test
Public Shared Sub Main()
Dim l1 As Long = GC.GetTotalMemory(True)
Dim arr(10000000) As Decimal
Dim l2 As Long = GC.GetTotalMemory(True)
Console.WriteLine("{0:0.0} MB", (l2 - l1) / (1024 * 1024))
End Sub
End Class
' run:
'
' 152.6 MB