Problem by Extended Types

Hi,

i have a problem at this point
Example:
Type TGadgetEx Extends TGadget
Field Tag:String
End Type

Local LbName:TGadgetEx = New TGadgetEx
LbName=CreateLabel("Name" ,0,0,48,24,PanPunkte)
LbName.Tag="xyz"

TGadgetEx includes TGadget and i think
TGadget can copy its data into TGadgetEx
or alternate can this work

Local LbName:TGadgetEx = CreateLabel("Name" ,0,0,48,24,PanPunkte)
LbName.Tag="xyz"

and this don't work

Local LbName:TGadgetEx = New TGadgetEx
LbName = TGadgetEx(CreateLabel("Name" ,0,0,48,24,PanPunkte))
LbName.Tag="xyz"


please help :)

the idea behind
i will create a panel with gadgets which have
own propertys .
this panel will i give a function or method and
in this i step through the kids and use
a select case own property for read/write my imput mask
with fields from another type



idea 2:
what i try to do

type TGadget
... BlitzMax Fields
... my Fields '<- but not here in the GUI Modul
end type

i don't want appent my Fields at TGadget in the Gui Module because updates for this module and so on .

i need something like this

append type TGadget
... my Fields
end type