Module Module1
    Public Class Test
        Public Sub New()
            Console.WriteLine(" Constructor ")
        End Sub
        Protected Overrides Sub Finalize()
            Console.WriteLine(" Destructor ")
            Console.ReadKey()
        End Sub
    End Class
    Sub Main()
        Dim a As Test
        a = New Test
    End Sub
End Module