I changed it as you said : PRIVATE $alblTime AS NEW Object[]
PUBLIC SUB Form_Open() DIM i AS Integer DIM rsThesi AS Result DIM iD AS Long MODMain.Connect() rsThesi = MODMain.$Con.exec("select * from egrafes where elenchosAnax = 0") FOR iD = 0 TO rsThesi!AA i = rsThesi!thesi $alblTime[i] = NEW Label(ME) $alblTime[i].Background = Color.Red NEXT MODMain.$Con.Commit() END Now I get "Out of bounds" error at line : $alblTime[i] = NEW Label(ME) Did I make something wrong? ------------------------------------------------------------------------------ Come build with us! The BlackBerry(R) Developer Conference in SF, CA is the only developer event you need to attend this year. Jumpstart your developing skills, take BlackBerry mobile applications to market and stay ahead of the curve. Join us from November 9 - 12, 2009. Register now! http://p.sf.net/sfu/devconference _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user