Public Sub GetRGB(ByVal TargetColour As Long, Red As Long, Green As Long, Blue As Long)
    Red = (TargetColour Mod 256)
    Green = (TargetColour \ 256) Mod 256
    Blue = (TargetColour \ 65536) Mod 256
End Sub