FoxPro/Visual FoxPro - Ayuda por favor, crear caja de texto con arrays

Hola expertos en Fox estoy haciendo un sistema para control escolar, me encuentro en el módulo de captura de calificaciones, despues de una contraseña el sistema muestra los datos del p rofesor y los grupos a su cargo, y en una list box muestro la lista de alumnos por grupo seleccionado, pretendo mostrar cajas de texto para la captura de calificaciones, pero me aparece este mensaje:

Array is not a member of the parent object (Error 1764)

y he qui el codigo, cualquier comentario y ayuda es apreciado, realmente me urge, por su atencion y dedicacion a este mensaje gracias.

vgrupo=this.Value
SELECT grupos
SET ORDER TO 1 && CLV_GRUPO
SEEK vgrupo
IF EOF()
MESSAGEBOX("No existe este grupo",0+48,"Alerta")
ELSE
i=1
total=1
tope=1
numero=1
mylabel=""
hay=0
SELECT kardex
SET ORDER TO 3
SEEK vgrupo
DO WHILE vgrupo=clv_grupo
vmatricula=matricula
ygrupo=clv_grupo
SELECT alumnos
SET ORDER TO 1 && MATRICULA
SEEK vmatricula
IF FOUND()
hay=hay+1
ENDIF
SELECT kardex
SKIP
i=i+1
ENDDO
DIMENSION arreglo (hay,1)
m=1
SELECT kardex
SET ORDER TO 3
SEEK vgrupo
DO WHILE vgrupo=clv_grupo
vmatricula=matricula
ygrupo=clv_grupo
SELECT alumnos
SET ORDER TO 1 && MATRICULA
SEEK vmatricula
IF FOUND()
vpaterno=apaterno
vmaterno=amaterno
vnombre=nombre
xnombre=ALLTRIM(vpaterno)+SPACE(1)+ALLTRIM(vmaterno)+SPACE(1)+ALLTRIM(vnombre)
arreglo(m)=vmatricula+SPACE(1)+xnombre
tope=tope+25
ENDIF
SELECT kardex
SKIP
m=m+1
ENDDO
DIMENSION cajas(hay,1)
FOR j=1 TO hay
cajas(j)="textbox"+STR(j,1,0)
next
FOR k=1 TO hay
THISFORM.DETallegrupo.AddItem(ARREGLO(k))
NEXT
FOR m=1 TO hay
thisform.AddObject("cajas(m)","textbox")&&&en esta linea me marka el error
obj="thisform." + cajas(m)
&x
x=obj + ".top=" + STR(300,3,0)
&x
x=obj + ".left=" + STR(300,3,0)
&x
x=obj + ".visible=.t."
&x
x=obj + ".value=" + "space(4)"
next
*thisform.detallegrupo.Rowsourcetype=5
*thisform.detallegrupo.Rowsource="arreglo"
*thisform.detallegrupo.Refresh
*frmMyForm.lstListBox1.RowSource = 'gaMyListArray'
*thisform.cmbgrupo.SetFocus
ENDIF
RETURN