CLEAR lb1=CREATEOBJECT("Label") FOR K=1 TO AMEMBERS(aPEM,"label",1,"N#") IF INLIST(aPEM[M.K,1],"GOTFOCUS","LOSTFOCUS") ? aPEM[M.K,1],aPEM[M.K,2],aPEM[M.K,3] =BINDEVENT(m.lb1,aPEM[M.K,1],_SCREEN,"click") ENDIF NEXT RELEASE lb1,Kp.s. GotFocus and LostFocus are not BINDABLE System events.