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