Un peu de couleur vite fait

'
caption 0,"COLORDESK par Froggy One"
dim r,v,b
label changeR,changeV,changeB,miR,miB,miV
picture 101:picture 102:picture 103
dim i:for i=101 to 103:width i,100:height i,100:next i
top 101,30:top 102,170:top 103,310
color 101,255,0,0:color 102,0,255,0:color 103,0,0,255
picture 106:picture 107:picture 108
for i=106 to 108:width i,100:height i,100:left i,140:next i
top 106,30:top 107,170:top 108,310
color 106,255,0,0:color 107,0,255,0:color 108,0,0,255
scroll_bar 201:scroll_bar 202:scroll_bar 203
top 201,132:top 202,272:top 203,412
for i=201 to 203:min i,0:max i,255:position i,255:next i
picture 111:width 111,150:height 111,150:left 111,400:top 111,145
alpha 11:alpha 12:alpha 13
for i=11 to 13:left i,400:width i,150:font_size i,14:next i
top 11,300:top 12,320:top 13,340
'
on_click 101,miR
on_click 102,miV
on_click 103,miB
on_change 201,changeR
on_change 202,changeV
on_change 203,changeB
'
END
'
changeR:
r=position(201)
color 106,r,0,0
color 111,r,v,b:caption 11,"R    "+str$(r)
RETURN
'
changeV:
v=position(202)
color 107,0,v,0
color 111,r,v,b:caption 12,"V    "+str$(v)
RETURN
'
changeB:
b=position(203)
color 108,0,0,b
color 111,r,v,b:caption 13,"B    "+str$(B)
RETURN
'
miR:
color 106,128,0,0
color 111,r,v,b
position 201,128
RETURN
'
miV:
color 107,0,128,0
color 111,r,v,b
position 202,128
RETURN
'
miB:
color 108,0,0,128
color 111,r,v,b
position 203,128
RETURN
'