>>Hi...
>>
>>Inside a loop *scan.. endscan* I'd like to show a form with an animated gif.. But, no visible picture couldn't show even with visible property set to .t.
>>
>>We only see an empty form..
>>
>>I already tried to insert a "doevents" inside a loop but nothing work as wished.. As well I tried to call a inkey(0.3, "H").. No result at all..
>>
>>TIA
>
>Can you run this form while the scan loop is running, e.g.
>

>do form myAnimatedGif form
>
>scan
>  processing logic
>endscan

yes.. the form (object form) comes up.. but doesn't display the picture & label object on it..

I do.. on init's main form of the app..

This.AddProperty("oFrm_wait", Newobject("waitform", lclib))
This.oFrm_wait.AddProperty("oCaller", Thisform)

And starting a loop

With Thisform.pf1.Page1.OleList
	LockWindowUpdate(.object.HWnd)
	loTopNode = .Nodes.Item["rec"]
	lnsecs					= Seconds()
	Scan Rest
		lnsecsrun				= Seconds()
		If  This.oCaller.oFrm_wait.Visible
			DOEVENTS  && testing
		Else
			If  (lnsecsrun - lnsecs) > 2
				This.oCaller.oFrm_wait.Caption	= "Searching the information... Wait!"
				This.oCaller.oFrm_wait.label1.Caption	= "Searching"
				This.oCaller.oFrm_wait.Show()
				DOEVENTS && testing
			Endif
		Endif