>I have a spinner control on a form and when I use the up and down arrows the spinner increments slowly...
>How can I get it to increment faster?
>
>TIA,
>Rick

Put this into Spinner mouseDown
( change the activate side margin, thi is a raw code )

* MouseDown
LPARAMETERS nButton, nShift, nXCoord, nYCoord
IF BETWEEN(m.nXCoord-OBJTOCLIENT(m.this,2)-m.This.width,-16,-3)
  DO CASE
  CASE BETWEEN(m.nYCoord-OBJTOCLIENT(m.this,1),2,this.Height/2)
      DO WHILE MDOWN()
          KEYBOARD '{UPARROW}' PLAIN
	      DOEVENTS
      ENDDO
   CASE BETWEEN(m.nYCoord-OBJTOCLIENT(m.this,1),this.Height/2,this.Height-2)
       DO WHILE MDOWN()
          KEYBOARD '{DNARROW}' PLAIN
	      DOEVENTS
      ENDDO
   ENDCASE
ENDIF

Can to be sufficient ?
Fabio