lo = CREATEOBJECT("ccc") DEFINE CLASS aaa as Custom PROCEDURE init MESSAGEBOX("Aaa") endproc ENDDEFINE DEFINE CLASS bbb as aaa PROCEDURE init MESSAGEBOX("bbb") DODEFAULT() endproc ENDDEFINE DEFINE CLASS ccc as bbb PROCEDURE init MESSAGEBOX("ccc") aaa::Init() endproc ENDDEFINE