SetSliderRange -100 to 100

Import MaxGui.Drivers

Strict

Local window:TGadget=CreateWindow("My Window",10,10,240,100,,WINDOW_TITLEBAR)

Local slider:TGadget = CreateSlider(10 , 10 , 220 , 20 , window , SLIDER_HORIZONTAL)
SetSliderRange(slider, 10, 210)

Local label:TGadget = CreateLabel("Slider Value",50 , 50 , 220 , 20 , window)

While WaitEvent()
Select EventID()
Case EVENT_WINDOWCLOSE
End
Case EVENT_GADGETACTION
SetGadgetText(label,SliderValue(slider)-100)
End Select
Wend