This didn't seem to help. I still get the message:

Can not clear the object SYSTRAY because it is in use.

The object "mySysTray" is defined as:

define class mySysTray as systray of systray.vcx

>Try

RELEASE ALL EXTENDED

instead. If you are using VFP 8 or 9, you could use TRY/CATCH instead:

TRY
>   loSysTray = CREATEOBJECT("mySysTray")
>   IF TYPE("loSysTray") == "O"
>      READ EVENTS
>   ENDIF
>CATCH TO loEx
>   CreateErrorLog (loEx.Procedure, loEx.LineNo, loEx.Message, loEx.ErrorNo, loEx.Line, SYS (16))
>ENDTRY
>
>RELEASE ALL EXTENDED
>CLEAR ALL
>CLEAR MEMORY
>CLEAR PROGRAM                        && CLEAR PROGRAMS FROM MEMORY
>CLOSE ALL
>CLEAR

HTH
>
>>In my shell program I have the following:

>...
>>ON ERROR DO ErrHandler WITH PROGRAM(),LINENO(),MESSAGE(),ERROR(),MESSAGE(1), SYS(16)
>>...
>>loSysTray = CREATEOBJECT("mySysTray")
>>IF TYPE("loSysTray") == "O"
>>   READ EVENTS
>>ENDIF
>>
>>RELEASE loSysTray
>>...

>My ErrHandler routine tries to exit "gracefully" by logging an error message and exiting the program.

>PROCEDURE ErrHandler
>>LPARAMETERS cProgram, nLineNo, cMessage, nErrorNo, cLine, cProgFile
>>
>>   = CreateErrorLog(cProgram,nLineNo,cMessage,nErrorNo,cLine,cProgFile)
>>
>>   ON ERROR
>>   RELEASE ALL
>>   CLEAR ALL
>>   CLEAR MEMORY
>>   CLEAR PROGRAM                        && CLEAR PROGRAMS FROM MEMORY
>>   CLOSE ALL
>>   CLEAR
>>
>>   QUIT
>>ENDPROC

>However, I find that when I have an error occur within my System Tray class, my Errorhandler hangs up when it gets to the CLEAR ALL command. I receive a message that says that the systray.vcx (from which mySysTray was subclassed) is in use and can not be cleared. I'm guessing that somehow loSysTray is not being released but I thought the RELEASE ALL would take care of that.