IF I have information on the screen (even issuing dir from the command window to draw on the screen) and I run this code:

*Screenset
#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

RETURN

and then I clear the screen or redraw it or something and then I issue:

*screenrset
#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
	ENDWITH

	_SCREEN.lockscreen=.F.
	
	ACTIVATE SCREEN
	IF PEMSTATUS(_Screen,'Printscr',5) 
		RESTORE SCREEN FROM _Screen.printscr
		= Sleep(100) && Wait a 1/10th of a second.
	ENDIF

	CLEAR DLLS "sleep"

#ENDIF

Why does the screen clear? It does the same thing even with no change to the screen in between the two procedures...it always appears to occur when the screen is unlocked in the screenrset procedure.