... really a reason why I use both. I tried to insert the method in TGet. I think it should only work on Gets with spinner. Therefore I inserted the proof for lSpinner. Regards, Otto METHOD MouseWheel( nKeys, nDelta, nXPos, nYPos ) IF ::lSpinner=.t. If nDelta > 0 Self++ Else Self-- EndIf ENDIF ...