Public Function Red1(ByVal Color As Long) As Long: Red1 = Color Mod 256: End Function
Public Function Green1(ByVal Color As Long) As Long: Green1 = Color \ 256 Mod 256: End Function
Public Function Blue1(ByVal Color As Long) As Long: Blue1 = Color \ 65536 Mod 256: End Function
Public Function Red2(ByVal Color As Long) As Long: Red2 = Color And 255: End Function
Public Function Green2(ByVal Color As Long) As Long: Green2 = Color \ 256 And 255: End Function
Public Function Blue2(ByVal Color As Long) As Long: Blue2 = Color \ 65536 And 255: End Function