>LPARAMETERS nDirection, nShift, nXCoord, nYCoord > >LOCAL iNewValue AS Integer > >WITH This > > IF nDirection > 0 > > iNewValue = .Value - 1 > IF iNewValue < 0 > iNewValue = 0 > ENDIF > > ELSE > > iNewValue = .Value + 1 > IF iNewValue > .MaxRange > iNewValue = .MaxRange && Assumes "MaxRange" is the prop name > ENDIF > > ENDIF > > .Value = iNewValue > >ENDWITH > >RETURN > >Works nice.