mybox = CREATEOBJECT("obox") myball1=CREATEOBJECT("oball", "1 inch", "blue/white", "hard") mybox.addball(myball1) DEFINE CLASS oball as Custom PROCEDURE init LPARAMETERS cSize, cColor, cHardness this.AddProperty('aList(1)') DIMENSION this.alist[3,2] this.alist[1,1] = "SIZE" this.alist[1,2] = cSize this.alist[2,1] = "COLOR" this.alist[2,2] = cColor this.alist[3,1] = "HARDNESS" this.alist[3,2] = cHardness ENDPROC ENDDEFINE DEFINE CLASS obox as Collection PROCEDURE addball LPARAMETERS toIn MESSAGEBOX(TYPE("toIn.alist",1)) this.Add(toIn) MESSAGEBOX(TYPE("mybox(1).alist",1)) ENDPROC ENDDEFINE