Sub GetColor(hex As String) As Double
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)
Return Colors.RGB(r, g, b)
End Sub
Sub Activity_Create(FirstTime As Boolean)
Log(GetColor("#E3E2E1"))
Log(Colors.RGB(227, 226, 225))