I cannot because it can only run in the vfp version. There is a dos version of this app that runs also and I have to segregate the code with is all that the #IF..#ENDIF does. I will test a pause or something?

>>I'm using VFP7 and VFP8 and it happens in both versions. Pardon me for asking, but if you run this prg, does your screen clear when it is finished? (Usually on the _screen.lockscreen=.f. line):
>>
>>

>>*testprg.prg
>>set COLOR TO gr+/r, g/w+
>>IF !PEMSTATUS(_Screen,'glfontname',5)
>>   	_Screen.AddProperty('glfontname')
>>ENDIF
>>IF !PEMSTATUS(_Screen,'glfontsize',5)
>>   	_Screen.AddProperty('glfontsize')
>>ENDIF
>>IF !PEMSTATUS(_Screen,'coldbackcolor',5)
>>   	_Screen.AddProperty('coldbackcolor')
>>ENDIF
>>IF !PEMSTATUS(_Screen,'coldforecolor',5)
>>   	_Screen.AddProperty('coldforecolor')
>>ENDIF
>>IF !PEMSTATUS(_Screen,'coldfillcolor',5)
>>   	_Screen.AddProperty('coldfillcolor')
>>ENDIF
>>_screen.glfontname=_screen.fontname
>>_screen.glfontsize=_screen.fontsize
>>_screen.cOldbackcolor=_screen.backcolor
>>_screen.coldforecolor=_screen.forecolor
>>_screen.coldfillcolor=_screen.fillcolor
>>clear
>>dir
>>dir
>>dir
>>#IF "VISUAL" $ UPPER(VERSION())
>>	IF !PEMSTATUS(_Screen,'Printscr',5)
>>    	_Screen.AddProperty('Printscr')
>>	ENDIF
>>	ACTIVATE SCREEN
>>	SAVE SCREEN TO _Screen.Printscr
>>	_screen.lockscreen=.t.
>>	_Screen.BackColor = RGB(255,255,255)
>>	_Screen.ForeColor = RGB(0,0,0)		
>>	_Screen.FillColor = RGB(255,255,255)	
>>	_screen.refresh
>>#ENDIF
>>
>>*Screenrset
>>glfontname=_screen.glfontname
>>glfontsize=_screen.glfontsize
>>coldbackcolor=_screen.coldbackcolor
>>coldforecolor=_screen.coldforecolor
>>coldfillcolor=_screen.coldfillcolor
>>
>>#IF 'VISUAL' $ UPPER(VERSION())
>>
>>	DECLARE Sleep IN Win32API;
>>	  		INTEGER nMilliseconds
>>	= Sleep(100) && Wait a 1/10th of a second.
>>
>>	* TCH 7/10/2002 Added
>>		
>>	WITH _screen
>>		.fontname=glFontName
>>		.fontsize=glFontSize
>>		.fontunderline=.f.
>>		.fontbold=.f.
>>		.BackColor = cOldbackcolor
>>		.ForeColor = cOldforecolor
>>		.FillColor = cOldfillcolor
>>		.LockScreen = .F.
>>	ENDWITH
>>
>>	ACTIVATE SCREEN
>>	IF PEMSTATUS(_Screen,'Printscr',5)
>>                * Stepping through this, the next line DOES run as it should
>>                * and running it after the prg finishes it works
>>		RESTORE SCREEN FROM _Screen.printscr
>>		= Sleep(100) && Wait a 1/10th of a second.
>>	ENDIF
>>
>>	CLEAR DLLS "sleep"
>>
>>#ENDIF
>>
>>RETURN
>>

>
>Tracy,
>
>Move the restore outside of the if statement
>...
>#ENDIF
>IF PEMSTATUS(_Screen,'Printscr',5)
> RESTORE SCREEN FROM _Screen.printscr
>ENDIF
>RETURN
>
>Joe