Ayuda para agregar un objeto a una clase

[ricardog]

Buenas tardes:
Necesito agregar un objeto llamado "otabla", a una clase llamada "tmaint", en tiempo de ejecucion. Podría alguien ayudarme con eso.
He tratado de hacerlo asi:

FUNCTION AddObjetoAClase( oObject, cDataName )
__clsAddMsg( oObject:ClassH, cDataName,&( "{ | | _" + cDataName + "() }" ) , HB_OO_MSG_METHOD,, HB_OO_CLSTP_EXPORTED )

Return NIL


Gracias