lnHandle = FOpen(PosItems.CWEBPic)

IF lnHandle > -1
   DO WHILE NOT FEOF(lnHandle)
      ThisForm.CommC1.Value = ThisForm.CommC1.Value + FRead(lnHandle)
   ENDDO

   FClose(lnHandle)
ELSE
   MessageBox("Can't open the file")
ENDIF

HTH

---

>I have the following code I need to use in VFP5.0 and I know nothing to help myself
> F1= FREEFILE
> OPEN POSITEMS.CWEBPIC FOR BINARY AS #F1
> DO WHILE NOT EOF(F1)
> GET #F1, , CH
> THISFORM.COMMC1.OUTPUT=CH
> ENDDO