[Gambas-user] make Label background from Database field

[Vassilis K]

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?