22 lines
271 B
Text
22 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
|