Force a garbage collect
Imports System Imports System.Drawing Imports System.Data Imports System.IO Imports System.Collections Imports System.Windows.Forms Imports System.Drawing.Printing Public Class MainClass Shared Sub Main() Dim o As MyObject = New MyObject o = Nothing GC.Collect() End Sub End Class Public Class MyObject ' Constructor - called when the object is started... Public Sub New() Console.WriteLine("Object " & GetHashCode() & " created.") End Sub ' Finalize - called when the object is removed from memory... Protected Overrides Sub Finalize() MyBase.Finalize() ' tell the user we've deleted... Console.WriteLine("Object " & GetHashCode() & " finalized.") End Sub End Class