Imports System
Public Class MainClass
Shared Sub Main(ByVal args As String())
Dim new_numbered As New Numbered()
End Sub
End Class
Public Class Numbered
Public Sub New()
End Sub
Protected Overrides Sub Finalize()
Console.WriteLine("Garbage collection started " )
End Sub
End Class