Rook, TBH, I think things are going to get messy doing it this way. Why not just keep everything nice and compact in an array of types? Something like:
Type squareT Field entity Field x#, z# Field kolor End Type Dim board.squareT(9,9) ; A 10x10 board row_pos# = -45 For row = 0 To 9 col_pos# = -45 For col = 0 To 9 n.squareT = New squareT n\entity = CopyEntity(empty) n\x = col n\z = row n\kolor = 0 board(row,col) = n EntityPickMode n\entity,2 PositionEntity n\entity,n\x,1,n\z col_pos = col_pos + 10 Next row_pos = row_pos + 10 Next