Mega Code Archive

 

Categories / VB.Net / Development

 

GC Class

Imports System     Class MyGCCollectClass         Private maxGarbage As Long = 10000         Public Shared Sub Main()             Dim myGCCol As New MyGCCollectClass             Console.WriteLine("The highest generation is {0}", GC.MaxGeneration)             myGCCol.MakeSomeGarbage()         End Sub         Sub MakeSomeGarbage()             Dim vt As Version             Dim i As Integer             For i = 0 To maxGarbage - 1                 vt = New Version             Next i         End Sub     End Class