Sub Rgb2Hex(r As Int, g As Int, b As Int) As String
Dim intC As Int
Dim bc As ByteConverter
intC = Colors.RGB(r,g,b)
Return Bit.ToHexString(intC)
End Sub
Sub Hex2RGB(hex As String) As Map
Dim m As Map
m.Initialize
Dim bc As ByteConverter
Dim r,g,b As Int
' #E3E2E1
'Log(hex.SubString2(1,3))
r = Bit.ParseInt(hex.SubString2(1,3), 16)
g = Bit.ParseInt(hex.SubString2(3,5), 16)
b = Bit.ParseInt(hex.SubString2(5,7), 16)
m.Put("r",r)
m.put("g",g)
m.Put("b", b)
Return m
End Sub