works... why not your??
scrollbar_hor = createscrollbar(5,5,200,25,0,0)
scrollbar_ver = createscrollbar(250,5,25,200,1,0)
button = createbutton(5,50,200,25,"random scroll pos",0,0)
setscrollbarrange scrollbar_hor, 0, 100
setscrollbarposition scrollbar_hor, 25
setscrollbarrange scrollbar_ver, 0, 100
setscrollbarposition scrollbar_ver, 25
DO
getEvent
ES = EventSource()
ET = EventType()
if ET = MOUSE_CLICK
if ES = button then setscrollbarposition scrollbar_hor, rnd(100) : setscrollbarposition scrollbar_ver, rnd(100)
ENDIF
LOOP