Hi Yannis,

I've been there.

Code:
Class RadiogroupSub Is A Radiogroup
    Procedure End_Construct_Object
        Forward Send End_Construct_Object
        Set Label to (Xlate(Label(Self)))
    End_Procedure //Construct_Object

    {WebProperty=Client} // This enables the 'designer' to show labels. Otherwise labels won't be rendered
    Procedure Set Label String sLabel
        Forward Set Label To (Xlate(sLabel))
    End_Procedure
End_Class //RadiogroupSub


Class RadioSub is a Radio 
    Procedure End_Construct_Object
        Forward Send End_Construct_Object
        Set Label to (Xlate(Label(Self)))
    End_Procedure //Construct_Object

    {WebProperty=Client} // This enables the 'designer' to show labels. Otherwise labels won't be rendered
    Procedure Set Label String sLabel
        Forward Set Label To (Xlate(sLabel))
    End_Procedure
End_Class //RadioSub
-Sture