*main.prg oApp = createobject("oApp") FOR ix = 1 to 3 FOR px = 1 to 5 ? oApp.myArray[ix,px] ENDFOR ENDFOR DEFINE class oApp as custom DIMENSION myArray[3,5] = .f. PROCEDURE init FOR ix = 1 to 3 FOR px = 1 to 5 this.myArray[ix,px] = ix*px ENDFOR ENDFOR ENDPROC ENDDEFINECetin