Public Sub IntColorToCssRGBA(color As Int) As String
Dim BC As ByteConverter
Dim ARGB() As Byte = BC.IntsToBytes(Array As Int(color))
Dim Alpha As Double = (Bit.And(ARGB(0),0XFF) / 255)
Return $"rgba(${Bit.And(ARGB(1),0XFF)},${Bit.And(ARGB(2),0XFF)},${Bit.And(ARGB(3),0xFF)},${NumberFormat2(Alpha,1,2,2,False)})"$
End Sub