Class A
Public Sub New()
Console.WriteLine("In class A constructor")
End Sub
Protected Overrides Sub Finalize()
Console.WriteLine("In class A destructor")
MyBase.Finalize()
End Sub
End Class
Class B
Inherits A
Public Sub New()
Console.WriteLine("In class B constructor")
End Sub
Protected Overrides Sub Finalize()
Console.WriteLine("In class B destructor")
MyBase.Finalize()
End Sub
End Class
Class C
Inherits B
Public Sub New()
Console.WriteLine("In class C constructor")
End Sub
Protected Overrides Sub Finalize()
Console.WriteLine("In class C destructor")
MyBase.Finalize()
End Sub
End Class
Module Module1
Sub Main()
Dim objSample As New C()
End Sub
End Module
|