Development VB.Net

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