
Dim R as integer
Dim G as integer
Dim B as integer
Sub TrouveRGB(Coul As Long)
R = &HFF& And Coul
G = (&HFF00& And Coul ) \ 256
B = (&HFF0000 And Coul ) \ 65536
End Sub
Function TrouveCoul(R As Long, G As Long, B As Long) As Long
TrouveCoul = R + (G * 256) + (B * 65536)
End Function