oC = CREATEOBJECT("MyLegacy") OC.ShowMe() DEFINE CLASS myLegacy as myCustom PROCEDURE ShowMe NODEFAULT() &&Later, use it without parenthesis... MESSAGEBOX("New Hola World") ENDPROC ENDDEF DEFINE CLASS myCustom as Custom PROCEDURE ShowMe MESSAGEBOX("Hello World") ENDPROC ENDDEFINE