FoxPro/Visual FoxPro - Añadir a ListBox

Buen dia Sres, necesito me ayuden con este pequeño codigo, en la 1ra parte añado mis campos, linea a linea como veran; en la 2da parte intento hacer un FOR que recorra ya que pueda tener N campos, pero me tira error en la tercera linea.

#define c01_LOC "Codigo"
#define c02_LOC "Nombre"
#define c03_LOC "Edad"
#define c04_LOC "Sexo"
#define c05_LOC "fecnac"

1.)
This.MoverLists1.lstSource.AddItem (c01_LOC)
This.MoverLists1.lstSource.AddItem (c02_LOC)
This.MoverLists1.lstSource.AddItem (c03_LOC)
This.MoverLists1.lstSource.AddItem (c04_LOC)
This.MoverLists1.lstSource.AddItem (c05_LOC)

2.)
FOR x=1 TO 5
elcampo= "c"+right("00"+alltr(str(x)),2)+"_LOC"
This.MoverLists1.lstSource.AddItem (&elcampo)
ENDFOR

Agradezco cualquier ayuda.
Saludos.

Esto:
FOR x=1 TO 5
elcampo= "c"+right("00"+alltr(str(x)),2)+"_LOC"
This.MoverLists1.lstSource.AddItem (&elcampo)
ENDFOR
Modificalo con esto:
FOR x = 1 TO 5
elcampo= "c00"+right(alltr(str(x)),2)+"_LOC"
Thisform.List1.AddItem (elcampo)
ENDFOR
Cuenta si eso es lo que quieres....