Exemplo Polimorfismo Vb.net

 O Polimorfismo é um mecanismo por meio do qual selecionamos as funcionalidades utilizadas de forma dinâmica por um programa no decorrer de sua execução.

Com o Polimorfismo, os mesmos atributos e objetos podem ser utilizados em objetos distintos, porém, com implementações lógicas diferentes.

Exemplo: Classe Animais

Public Class Animais '' Classe mae

    Private tipox As String

   Public Property Tipo() As String

    Public Sub New(TipoAnimal As String)

        Me.tipox = TipoAnimal

        Console.WriteLine(Me.tipox)

    End Sub

    Public Overridable Sub Mover()

   End Sub

    Public Overridable Sub Voa()

        Console.WriteLine("Esta Animal não Voa") ''Metodo Padrao de Difinido na classe MAE Animais

    End Sub

End Class

Public Class Peixe

    Inherits Animais

    Public Sub New(TipoAnimal As String)

        MyBase.New(TipoAnimal)

    End Sub

    Public Overrides Sub Mover()

        Console.WriteLine("Nada 10 Metros")

    End Sub

End Class

Public Class Andorinha

    Inherits Animais

    Public Sub New(TipoAnimal As String)

        MyBase.New(TipoAnimal)

    End Sub

    Public Overrides Sub Mover()

        Console.WriteLine("Voa 10 Metros")

   End Sub

    Public Overrides Sub Voa() ''Sobreescreve Metodo Voa

        Console.WriteLine("Esta Animal  Voa")

    End Sub

End Class

Essa parte vai no main do programa

        Dim an As Animais() = New Animais(1) {}

        an(0) = New Peixe("Tilapia")

        an(0).Mover()

        an(0).Voa()

        an(1) = New Andorinha("Andorinha Nova")

        an(1).Mover()

        an(1).Voa()

        Console.ReadLine()