GUIRegisterMsg($WM_VSCROLL, "WM_HVSCROLL")
$slider = GuiCtrlCreateSlider(10, 15, 30, 140, 0x0002)
GUICtrlSetLimit($slider, 1500, 0)
$heightl = GuiCtrlCreateLabel("0", 9, 150)
GuiCtrlSetData($slider, $Height)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func WM_HVSCROLL($hWndGUI, $MsgID, $WParam)
$SetHeight = 1500 - GUICtrlRead($slider)
GUICtrlSetData($heightl, $SetHeight)
_MemoryWrite("0x" & $HeightAddress, $ProcInf, $SetHeight + 16500, 'short')
EndFunc