[Yashied]

От этого трудно избавиться , да и вряд ли это принципиально важно. »

Попробуй так.

Код:

#Include <GUISlider.au3>

Global $Form, $Slider, $Data, $Release = False

$Form = GUICreate('Test', 220, 100)
$Slider = GUICtrlCreateSlider(0, 10, 220, 20)
GUICtrlSetLimit(-1, 200, 0)
_GUICtrlSlider_SetPageSize($Slider, 0)
GUISetState()

Do
    $Data = GUIGetCursorInfo()
    Switch $Data[4]
        Case $Slider
            If $Data[2] Then
                If $Release Then
                    GUICtrlSetData($Slider, $Data[0] - 10)
                    $Release = False
                EndIf
            Else
                $Release = True
            EndIf
    EndSwitch
Until GUIGetMsg() = -3