set increment in spinner (Buddy) control

[dossic]

I needed to change the increment in buddy (spinner) controls.  I wrote a short subroutine, it may be useful for some of us.
regards   Carlo

TYPE UDACCEL
   DEF nSec1 As INT
   DEF nInc1 As INT
ENDTYPE
DEF aAccels as POINTER

CONST WM_USER = 0x400
CONST UDM_SETACCEL =           (WM_USER+107)

sub SetSpinnerIncrement(parent:DIALOG,id:UINT,inc:INT)
   'set Increment as "inc" variable
   aAccels=NEW(UDACCEL,1)
   #<UDACCEL>aAccels.nSec1 = 300    'time in ms between autochange
   #<UDACCEL>aAccels.nInc1 = inc
   a = SENDMESSAGE parent,UDM_SETACCEL,1,aAccels,id
endsub