>Cetin,
>
>Can you tell me how to attach the file name to the control and make it appear when the form is ran?

#Define WEBCLASSLOC home()+'gallery\_webview.vcx'
#Define GIF1 'file://'+sys(5)+curdir()+'bmps/animatedgif.gif'

oForm = createobject('form1')
oForm.Show
Read events

Define CLASS form1 AS form
  Top = 0
  Left = 0
  Height = 467
  Width = 577
  DoCreate = .T.
  Caption = "Form1"
  Name = "Form1"

  Procedure Init
    With ThisForm
      .NewObject('_webbrowser','_webbrowser4',WEBCLASSLOC)
      With ._WebBrowser
        .Height = 150
        .Width = 150
        .visible = .t.
      Endwith
      .LoadFile(GIF1)
    Endwith
  Endproc

  Procedure LoadFile
    Lparameters tcURL
    With this._WebBrowser
      .Navigate(tcURL)
      lnStart = datetime()
      Do while .ReadyState # 4 and datetime()-lnStart < 5
      Enddo
      .document.body.bgcolor = 0xFFFF00 && Change backcolor to yellow
      .document.body.scroll = 'auto' && 'no' for none
    Endwith
  Endproc

  Procedure QueryUnload
    Clear events
  Endproc
Enddefine

Cetin