Color to RGB

From scripting
Revision as of 05:16, 22 April 2017 by Nickpisca (talk | contribs) (Created page with " Function Color_to_RGB(Color As Long) As Variant Dim CurRGB() As Integer ReDim CurRGB(2) CurRGB(0) = Color Mod 256 CurRGB(1) = (Color \ 256) Mod 256 CurRGB(2) = (Co...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search
Function Color_to_RGB(Color As Long) As Variant
Dim CurRGB() As Integer
ReDim CurRGB(2)
  CurRGB(0) = Color Mod 256
  CurRGB(1) = (Color \ 256) Mod 256
  CurRGB(2) = (Color \ 256 \ 256) Mod 256
Color_to_RGB = CurRGB
End Function