¢Agora vamos ver como poderemos usar o polimorfismo.

Sub Main()

Dim cli  As Cliente

Dim cliM  As New ClienteMor ()

cliM.Nome = "Pepe"

cliM.idade= 30

cli = cliM

Console.WriteLine("Usando Mostrar da classe Cliente")

cli.Mostrar()

Console.WriteLine("Usando Mostrar da classe ClienteMor")

cliM.Mostrar()

Console.WriteLine(“A idade do Cliente mor é : {0}", cliM.idade)

Console.ReadLine()

End Sub