Приведение к типу базового класса

[ST1]

Приветствую

Если есть базовый класс A с методом func
и я делаю имплементация A классом B
то синтаксис для определения func в B такой:
sub A_func
Теперь если есть объект b типа B
то для вызова func пишем Call b.A_func
Можно ли как нибудь привести тип b к A чтобы вызывать покороче b.func капк это делается в "полноценных" ОО языках?

[tyomitch]

Код: Выделить всё

Dim o_a As A
Set o_a = b
o_A.func


либо просто добавь в b Sub func: A_func: End Sub