class clsMyTextBox(of Typ)
 
private txtBox as textbox
 
property wert () as Typ
Get
return txtbox.text 'Fehlermeldung
select case typ 'geht auch nicht
if typeof typ=integer then return cint(txtbox.text) 'auch da gibts eine 
' Fehlermeldung
end get
set(value as typ)
txtbox.text=cstr(value)
set
 
end set
end property
end class