Public Function GetR(Byval col as Long) As Long
    GetR = (col And &HFF)
End Function
 
Public Function GetG(Byval col as Long) As Long
    GetG = (col And &HFF00) / &HFF
End Function
 
Public Function GetB(Byval col as Long) As Long
    GetB = (col And &HFF0000) / &HFFFF
End Function

Bye

illuminator
(Programmers don't die, they GOSUB without RETURN...)