local loControl for each loControl in thisform.Controls if loControl.BaseClass = 'Label' bindevent(loControl, "MouseEnter",thisform,"Change_BackStyle") bindevent(loControl, "MouseLeave",thisform,"Reset_BackStyle") endif next** Change_BackStyle method
local loCalledBy && as Object LOCAL ARRAY aCurEvent[1] aevents[aCurEvent,0] loCalledBy = aCurEvent[1] && should be a label if vartype(m.loCalledBy)= "O" loCalledBy.BackStyle = 1 endif