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
ENDDEFINE