_Screen.Visible = .F. SET TALK OFF SET CONFIRM ON SET ESCAPE OFF SET DELETED ON SET EXCLUSIVE OFF SET MULTILOCKS ON SET SYSFORMATS ON ON SHUTDOWN Clear Events LOCAL oST oST = CREATEOBJECT( "mySysTray" ) READ EVENTS ON SHUTDOWN CLOSE ALL CLEAR ALL Quit ***************************** DEFINE CLASS mySysTray AS Systray OF HOME()+"\Samples\Solution\Toledo\Systray.vcx" IconFile = HOME() + "\Graphics\Icons\Misc\face02.ico" TipText = "Prueba de SysTray" PROCEDURE IconDblClickEvent IF MESSAGEBOX("Do you really want to quit?",4+32+256,"Test of SysTray")=6 CLEAR EVENTS ENDIF ENDPROC ENDDEFINENOTE: I'm working with VFP8 on WinXP Prof. SP1 (with all available updates)