Hi All.

I have been trying to implement an auto shutdown sequence to close my app. on any workstations that is running when maintenance is required. I have already implemented a message to each, and each workstaion responds by closing down properly as long as there is not an active modal screen, messagebox, or browse.

When this happens the on shutdown procedure hangs and will not close the app. I thought my on shutdown procedure was working properly until I hit this wall.

I know it is hanging on _Screen.forms(1).release but only when a modal screen, messagebox or browse is on screen. There seems to be a dangling reference or something preventing release. I can't find a way to programatically close these from on shutdown.

I have been working on this problem for a couple of days now, trying everything I can think of. What am I doing wrong?

This is my on shutdown procedure.

procedure onshutdown
	clear events
	if _screen.formcount > 0
		for m.xx = 1 to _screen.formcount
		do while _screen.formcount > 0
	
			_Screen.forms(1).release
		
		enddo
	endif
	release all extended
	clear all
	flush
	on shutdown
    quit

TIA
Elmer