CASE msg=273 &&mouse click lcVariableName = "__xf_g_ch"+ALLTRIM(STR(lParam)) IF "O" = TYPE(lcVariableName) *** DH 07/12/2007: ignore a click if we haven't returned from the previous one loObject = evaluate(lcVariableName) if not pemstatus(loObject, 'lInClick', 5) or not loObject.lInClick if not pemstatus(loObject, 'lInClick', 5) addproperty(loObject, 'lInClick') endif not pemstatus(loObject, 'lInClick', 5) loObject.lInClick = .T. *** DH 07/12/2007: end of new code &lcVariableName->m_click(0) *** DH 07/12/2007: rest of the new code loObject.lInClick = .F. endif not pemstatus(loObject, 'lInClick', 5) ... *** DH 07/12/2007: end of new code ENDIFDoug