Code: Select all
type udt_1
as ulong a
end type
type udt_extended extends udt_1
as ulong b
end type
sub s( byref udt as udt_1) 'will be passing extended udt to this sub
print sizeof(udt)
udt.a = 1000
end sub
dim etxended_udt as udt_extended
etxended_udt.b = 2000
etxended_udt.b = 2000
print sizeof(etxended_udt) 'print the size of extended udt
s(etxended_udt)'print non extended udt while passing extending udt.
print
print etxended_udt.a
print etxended_udt.b
sleep