It passes array correctly but one array cannot be assined to another. You have to use ACOPY() function.

DIMENSION ThisForm.aFiles[1]
ACOPY(taFiles, ThisForm.aFiles)

>I'm trying to pass one array by reference, from one form to another form, but it only pass the first column,
>
>

>Form1
>DIMENSION laFiles[nCopyNo]
>lnFiles=ADIR(laFiles,oApp.cAppPath+"\Tmp\"+lcNameFile+"*.*")
>DO FORM gc_sendmail WITH lcNameFileToPrint, .txtCodigo.Value, 1,laFiles
>
>Form2
>INIT:
>LPARAMETERS tcNomeFicheiro,tcCodTer,tnTipoTer,taFiles
>ThisForm.aFiles=taFiles
>
>

>