lcAnimatedGif = "c:\myPath\myAnimated.gif" Public oForm oForm = Createobject('myForm') oForm.Show Define Class myForm As Form Add Object myBrowser As OleControl ; with OleClass="Shell.Explorer",; Height=120,Width=120 Procedure myBrowser.Refresh Nodefault Endproc Procedure Init With This.myBrowser .Navigate2('file://'+m.lcAnimatedGif) Do While .ReadyState # 4 Enddo .Document.body.Scroll="no" Endwith Endproc EnddefineCetin