21 lines
271 B
Text
21 lines
271 B
Text
' FB 1.05.0 Win64
|
|
|
|
Type Animal Extends Object ' to enable virtual methods etc. if needed
|
|
' ...
|
|
End Type
|
|
|
|
Type Dog Extends Animal
|
|
' ...
|
|
End Type
|
|
|
|
Type Cat Extends Animal
|
|
' ...
|
|
End Type
|
|
|
|
Type Lab Extends Dog
|
|
' ...
|
|
End Type
|
|
|
|
Type Collie Extends Dog
|
|
' ...
|
|
End Type
|