... >_Screen.AddObject( "ClearEventsTimer", "ClearEventsTimer") >... >Create Connection ? >_Screen.ClearEventsTimer.Enabled = .T. >Read Events >... >&& somewhere in your program or in VCX >Define Class ClearEventsTimer As Timer > Enabled = .F. > Interval = 300 > Procedure Timer > If ! WExist( "Connection Designer") > Clear Events > Release This > EndIf > EndProc >EndDefine >>Hope this helps.