lnhandle=FOPEN('filename')
DO WHILE !FEOF(lnhandle)
thisform.edit1.Value=thisform.edit1.Value+FGETS(lnhandle)+CHR(13)
ENDDO
FCLOSE(lnhandle)
DO WHILE !FEOF(lnhandle)
thisform.edit1.Value=thisform.edit1.Value+FGETS(lnhandle)+CHR(13)
ENDDO
FCLOSE(lnhandle)
cString = FILETOSTR("FileName")
ThisForm.EditBox1.Value = cString