Diskuze – Lekce 7 - Dědičnost a polymorfismus

Velice pěkně napsáno, škoda jen, že jsem s tím nezačal dříve. Mohl jsem si ušetřit hodně práce.
Děkuji moc, Michale!

Tu je môj problém :

Module Inheritance1

    Sub Main()

        Dim osoba As Užívateľ
        osoba = New Správca

        osoba.Vizitka("Mark", "Vetva"
       ** osoba.ViztkaVek(40)** ]:->

        Console.ReadKey()

    End Sub

    Public Class Užívateľ
        Public Property Meno As String
        Public Property Priezvisko As String

        Public Sub Vizitka(ByVal new_meno As String, ByVal new_priezvisko As String)
            Me.Meno = new_meno
            Me.Priezvisko = new_priezvisko
            Console.WriteLine("Meno a priezvisko užívateľa: {0}, {1}", Meno, Priezvisko)
        End Sub

    End Class

    Public Class Správca
        Inherits Užívateľ
        Public Property Vek As Byte

        Public Sub VizitkaVek(ByVal new_vek As Byte)
            Me.Vek = new_vek
            Console.WriteLine("Meno a priezvisko užívateľa: {0}, {1},{2}", Meno, Priezvisko, Vek)
        End Sub
    End Class


End Module

Potomok nemá prístup k svojej metóde !

Opravujem :
osoba.Vizitka("Mar­k", "Vetva")

a tu je problém :
** osoba.ViztkaVek(40)**