GC.GetGeneration returns the current generation number of the target of a specified weak reference.
Imports System Class MyGCCollectClass Private maxGarbage As Long = 1000 Public Shared Sub Main() Dim myGCCol As New MyGCCollectClass myGCCol.MakeSomeGarbage() Console.WriteLine("The object is in generation: {0}", _ GC.GetGeneration(myGCCol)) GC.Collect() End Sub Sub MakeSomeGarbage() Dim vt As Version Dim i As Integer For i = 0 To maxGarbage - 1 ' Create objects and release them to fill up memory ' with unused objects. vt = New Version Next i End Sub End Class