ColorPicker()
CBK_SelColor$=CBK_SelColor
If (CBK_SelColor$<>'') Then
CBK_SelColor$=CBK_SelColor$+','
Red$=GetArrayItem(CBK_SelColor$,'0x2C',1)
Green$=GetArrayItem(CBK_SelColor$,'0x2C',2)
Blue$=GetArrayItem(CBK_SelColor$,'0x2C',3)
LoadText("Red","Red$")
LoadText("Green","Green$")
LoadText("Blue","Blue$")
End









