Private Sub GetColor(hex As String) As Paint
Dim a,r,g,b As Int
r = Bit.ParseInt(hex.SubString2(2,4), 16)
g = Bit.ParseInt(hex.SubString2(4,6), 16)
b = Bit.ParseInt(hex.SubString2(6,8), 16)
a = Bit.ParseInt(hex.SubString2(8,10), 16)
Return fx.Colors.ARGB(a, r, g, b)
End Sub