gracias por la ayuda, pero lo que realmente kiero hacer es desplegar el contenido del array en el editbox
ejemplo:
public vLongitud,vCadena
STORE ALLTRIM(thisform.edit1.value) TO vCadena
vLongitud = LEN(ALLTRIM(thisform.edit1.Value))
array miArreglo(vLongitud)
i=1
DO WHILE i <= vLongitud
   STORE SUBSTR(vCadena,i,1) TO miArreglo(i)
   i=i+1
ENDDO
i=1   
DO WHILE i<= vLongitud
   IF MOD(i,2) = 0
      STORE UPPER(miArreglo(i)) TO miArreglo(i)
   ELSE
      STORE LOWER(miArreglo(i)) TO miArreglo(i)
   ENDIF
   i=i+1
enddo      
*******************
lo ke kiero hacer es ke aparezca lo que se ingreso en el editbox ya modificado y ke se encuentra en el arreglo.. espero puedan ayudarme =)