VB.Net/Windows System/Memory

Get total memory

<source lang="vbnet"> Imports System.IO Module Module1

   Sub Main()
       Console.WriteLine("Allocated memory " & GC.GetTotalMemory(True))
       Dim c1 As New Contact("Name 1", "111-555-1111", "1@1.ru")
       Dim c2 As New Contact("Name 2", "222-555-1212", "2@2.ru")
       Dim c3 As New Contact("Name 3", "333-555-1212", "3@3.ru")
       
       c1 = Nothing " Discard the object
       GC.Collect()
       Console.WriteLine("Back from first collection")
       c3 = Nothing " Discard the object
       GC.Collect()
       Console.WriteLine("Back from second collection -- Press Enter")

       Console.WriteLine("Allocated memory " & GC.GetTotalMemory(True))
       GC.SuppressFinalize(c2)
       
   End Sub

End Module

   Class Contact
       Public Name As String
       Public Phone As String
       Public EMail As String
       Sub New(ByVal ContactName As String, ByVal ContactPhone As String, ByVal ContactEmail As String)
           Console.WriteLine("Name: " & ContactName & " Phone " & ContactPhone & " Email " & ContactEmail)
           Name = ContactName
           Phone = ContactPhone
           EMail = ContactEmail
       End Sub
       Protected Overrides Sub Finalize()
           Console.WriteLine("In Finalize for " & Name)
       End Sub
   End Class
          
      </source>