Colors are confusing...PLease help me out

[nishantp]

How do you go about separating Hex color values to its three component RGB values? Say i take the color value that the user selcted from CommonDialog Color dialog and i want to know the RGB values of the color...is there any way of finding them out from the Hex value? Thanks.

[kedaman]

first i think Commondialog returns the RGB color, not a hex string. To then split up it in it's component you can use copymemory as follows:

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
...
    Dim a(3) As Byte, x As Long
    CommonDialog1.ShowColor
    x = CommonDialog1.Color
    CopyMemory a(0), x, 4
    Debug.Print a(0), a(1), a(2)

[nishantp]

Thanks a lot Kedaman