Module Module1
Sub Main()
Dim myObject As Object = New Object()
Dim i As Integer
For i = 0 To 3
Console.WriteLine(String.Format("Generation = {0}", _
GC.GetGeneration(myObject)))
GC.Collect()
GC.WaitForPendingFinalizers()
Next i
Console.Read()
End Sub
End Module