X = mvarX End Property Public Property Let R(ByVal vData _ As Integer) 'Syntax: X.R = 5 mvarR = vData End Property Public Property Get R() As Integer 'Syntax: Debug.Print X.R R = mvarR End Property Мұраға алу. Алдыңғы тарауда Round және Eyes кластарының ұрпақтану принципетрі көрсетілген болатын. Visual Basic Класс Құрғышында өте қарапайым тәсілмен өз планыңызды іске асыруға мүмкіншілік бар. Ол үшін жоғарыда көрсетілгендей, алғашқыда Round класын құру қажет. Онан соң экранның сол жақ бетінде Project 1 Class Builder белгілеу қажет. File | New \ Class немесе Add New Class пернесін қолдану керек. Жоғарыда көрсетілгендей Class Module Builder (13.8. сурет) Eyes класының атын нұсқау керек. Based On тізімінде Round класын белгілеу қажет. Бұл 1.11 суретте көрсетілген.
1.11 сурет. Eyes класының Round қасиеттерімен әдістерін мұраға алуы
бұл жағдайда Eyes класының әдістері қайта анықталған болады. Немесе оларға қайта мән беру керек болады (Round – тың басқа әдіс кластарымен салыстырғанда, процедура терезесінде бұл мәндер “бос” болады).