Function GUI_Update()
omx = mx
omy = my
mx = MouseX()
my = MouseY()
For w.w = Each w
If MouseDown(1)
If RectsOverlap(mx,my,1,1,w\x,w\y,w\width,20) And sch = 0 Then w\sta = 1:w\sch = 1:sch = 1
If RectsOverlap(mx,my,1,1,w\x,w\y+20,w\width,w\height-20) And sch = 0 And w\sch = 0 Then
For w2.w = Each w
w2\sta = 0
Next
w\sta = 1
w.w = First w ;?????????????????????????????????????????????????????????????????
EndIf
EndIf
If w\sch = 1
w\x = w\x + (mx-omx)
w\y = w\y + (my-omy)
If Not MouseDown(1) Then w\sch = 0:sch = 0
EndIf
For i = 0 To (w\width-100)/100
If w\sta = 1 DrawImage w\img[1],w\x+i*100,w\y
If w\sta = 0 DrawImage w\img[2],w\x+i*100,w\y
Next
;If w\sta = 1 DrawImageRect w\img[1],w\x+i*100,w\y,0,0,w\width
;If w\sta = 0 DrawImageRect w\img[2],w\x+i*100,w\y
Color 0,0,150:Rect w\x,w\y+20,w\width,w\height-20
Color 0,0,255
Rect w\x,w\y+20,w\width,w\height-20,0
Rect w\x,w\y,w\width,21,0
Color 255,255,255:Text w\x+5,w\y+10,w\title$,0,1
Next
End Function

Insert w.w BEFORE FIRST w
w.w = First w