Esempio di polimorfismo [VB .NET]

Public class Albero
    Public Overridable Sub cresce()
        Console.WriteLine("Metodo cresce della classe Albero")
    End Sub
End Class
Public class Abete : Inherits Albero
    Public Overrides Sub cresce()
         Console.WriteLine("Metodo cresce della classe Abete")
    End Sub
End Class
Module Module1
    Sub Main()
        Dim alb As Albero
        Dim ab As Abete
        alb = New Albero()
        ab = New Abete()
        alb.cresce() ' output --> "Metodo cresce della classe Albero"
        ab.cresce()  ' output --> "Metodo cresce della classe Abete"
        alb = New Abete()
        alb.cresce() 'output --> "Metodo cresce della classe Abete"
    End Sub
End Module