loa = CREATEOBJECT("aaa") lob = CREATEOBJECT("bbb") DEFINE CLASS aaa as Custom PROCEDURE init wait wind "Common Stuff" this.init_special() DODEFAULT() endproc procedure init_Special MESSAGEBOX("aaa") endproc ENDDEFINE DEFINE CLASS bbb as aaa procedure init_Special MESSAGEBOX("bbb") endproc ENDDEFINEregards