oForm = CREATEOBJECT("GIFForm") oForm.SHOW(1) * Definição do Form DEFINE CLASS GIFForm AS FORM WIDTH = 200 HEIGHT = 200 ADD OBJECT oleIE AS OLECONTROL WITH ; TOP = 0, ; LEFT = 0, ; WIDTH = 200, ; HEIGHT = 200, ; OLECLASS = "Shell.Explorer.2" PROCEDURE oleIE.REFRESH NODEFAULT && Isto é por causa de um bug do IE ENDPROC PROCEDURE INIT thisform.oleIE.Navigate("about:blank") thisform.oleIE.Document.Write(; [<body scroll="no">] + ; [<img src="c:\meuarquivo.gif"></img>] + ; [</body>]) ENDPROC ENDDEFINEUm abraço!
