Como 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

¢No programa declaramos uma variável do tipo da classe cliente, no entanto não foi criado nenhum objecto dessa classe.
¢Depois criamos um objecto da classe Clientemor.
¢Depois atribuímos a variável cli o mesmo objecto da variável cliM.
¢Como a variável cli é do tipo cliente apenas se poderá ter acesso aos elementos existentes nessa classe.
¢Note-se ainda que sempre que alteremos o valor da propriedade nome em cli, este valor também é alterado em CliM.