Define Class NewButton As Container SpecialEffect = 0 Procedure MouseDown LParameters nButton, nShift, nXCoord, nYCoord This.SpecialEffect = 1 EndProc Procedure MouseUp LParameters nButton, nShift, nXCoord, nYCoord This.SpecialEffect = 0 EndProc EndDefineWhen I create an object bassed on NewButton on my form and run it, I hold down the left button of the mouse over the NewButton object and don't change the specialeffect property.