cImage = GETPICT() WITH ThisForm.oBrowser AS Shell.Explorer .Navigate("about:blank") DO WHILE .readyState < 4 DOEVENTS ENDDO TEXT TO cHTML NOSHOW TEXTMERGE <html> <head> <script language="javascript"> function zoomimage(img) { if (img.style.width=='100%'){ img.style.width=''; document.body.scroll=''; }else{ img.style.width='100%'; document.body.scroll='no'; } } </script> <body style="margin:0px"> <img src="file:///<<cImage>>" style="width:100%;" onclick="zoomimage(this);"> </body></html> ENDTEXT .Document.write(cHTML) .Document.body.scroll="no" .Document.body.style.border="none" ENDWITH