By the way my FTP download code is as follows

sz_ftp = CREATEOBJECT('ftp_service')
IF sz_ftp.OpenInternet("colinnorthway", "*******", "northwayweb.com", "21")
? "--- Receiving File from FTP Server"
IF !sz_ftp.GetFtpFile("colinglobe.jpg", "colinglobe.jpg", .T.)
?sz_ftp.GetErrorCode(.T.)
else
? "--- OK with receipt"
ENDIF

Colin

>The Image control can be sub-classed to do that:
>

>LOCAL oForm As TForm
>oForm=CREATEOBJECT('TForm')
>oForm.Show(1)
>* end of main
>
>DEFINE CLASS TForm As Form
>
>	ADD OBJECT Image1 As WebImage WITH;
>	Left=10, Top=10
>
>PROCEDURE Init
>	THIS.Image1.Picture='http://www.news2news.com/vfp/images/w32logo1.gif'
>
>ENDDEFINE
>
>DEFINE CLASS WebImage As Image
>
>PROCEDURE Picture_ASSIGN(cUrl As String)
>	DECLARE INTEGER URLDownloadToCacheFile IN urlmon;
>		INTEGER lpUnkcaller, STRING szURL, STRING @szFileName,;
>		INTEGER dwBufLength, INTEGER dwReserved, INTEGER pBSC
>
>	LOCAL cCacheFile
>	cCacheFile=REPLICATE(CHR(0),260)
>
>	IF URLDownloadToCacheFile(0, m.cUrl,;
>		@cCacheFile, LEN(cCacheFile), 0,0) = 0
>		THIS.Picture=m.cCacheFile
>	ENDIF
>
>ENDDEFINE
>