Connect spinner and timeslider. Sequences Viewer Tool

I found this maxscript that loads sequences and displays them in a window in real time, for animators is a very useful tool.

I wish it could be modified to be able to connect the spinner with timeslider and in that way drag the timeslider and that the sequence changes automatically.

follow the instructions that are here to achieve it and do not update the images on screen.
http://www.scriptspot.com/forums/3ds-max/general-scripting/currenttime-o...

(
try(cui.UnRegisterDialogBar rlt_preview) catch()
try(destroyDialog rlt_preview) catch()
global Thepos1=[0,0]
global mousedd1=false
local allFiles1 = #()
local shu=0
local last_path = ""
local bofang=true
local shijian=0
local shudu=1
rollout rlt_preview "Sequence Viewer" width:350 height:350
(

bitmap img_preview "texture preview" pos:[6,6] bitmap:(bitmap 340 265 color:black)
slider sld1 "0000" pos:[6,275] width:335 height:44 range:[1,100,1] type:#integer ticks:0 border:false
button btn1 "Play" pos:[140,316] width:78 height:25
button btn2 ">>" pos:[224,316] width:25 height:25
button btn3 "<<" pos:[110,316] width:23 height:25
button btn4 "Load" pos:[21,317] width:39 height:24
button btn5 "x" pos:[70,317] width:25 height:25 toolTip:"¹Ø±Õ"
Timer clock "testClock" pos:[310,316] width:24 height:24 interval:1
Timer clock1 "testClock" pos:[310,316] width:24 height:24 interval:1000
slider sld14 "" pos:[263,320] width:79 height:25 range:[1,40,1] type:#integer ticks:0 border:false
label lbl3 "Speed" pos:[275,308] width:52 height:18
on rlt_preview lbuttondblclk g11 do
(
DestroyDialog rlt_preview
)
on rlt_preview lbuttonup pos1 do
mousedd1=false
on rlt_preview lbuttondown pos1 do
(
mousedd1=true
Thepos1=pos1
)
on rlt_preview mousemove pos1 do
( if mousedd1==true Then

(SetDialogPos rlt_preview (mouse.screenpos-Thepos1))

)
on rlt_preview open do
(
)
on btn5 pressed do
(
destroydialog rlt_preview
)
on sld1 changed val do
(
if last_path!="" do
(
shu=val
rlt_preview.img_preview.bitmap = openBitMap allFiles1[val]
)
)
on sld4 changed val do
(
shijian=val
)
on btn1 pressed do
(
if last_path!="" do
(
if bofang==true then (bofang=false )else(bofang=true )
if bofang==true then (btn1.text="Play" )else(btn1.text="Stop" )
)
)
on btn2 pressed do
(
if last_path!="" do
(
if shu1 then ( shu=shu-1)
else (shu=allFiles1.count)
sld1.range=[1,allFiles1.count,shu]
rlt_preview.img_preview.bitmap = openBitMap allFiles1[shu]

)
)
on btn4 pressed do
(
local path = getSavePath caption:"" initialDir:last_path
if path == undefined then
(
path = ""
)
else(
last_path = path
DestinationPath_STR = path as string
get_path = DestinationPath_STR + "\\"
allFiles1 = getFiles (get_path+"*.png")
allFiles1 =allFiles1+ getFiles (get_path+"*.jpg")
rlt_preview.img_preview.bitmap = openBitMap allFiles1[1]
sld1.text= allFiles1.count as string
sld1.range=[1,allFiles1.count,1]
)

)
on clock1 tick do
(
lbl3.text="Speed"
)
on clock tick do
(

sld1.text=shu as string
shijian=shijian+1

if shijian==shudu do
(
shijian=0
if bofang ==false do ( if shu