VB Code:
Function GetRValue(ByVal nColor As Long) As Long GetRValue = nColor And &HFF& End Function Function GetGValue(ByVal nColor As Long) As Long GetGValue = (nColor \ &H100&) And &HFF& End Function Function GetBValue(ByVal nColor As Long) As Long GetBValue = (nColor \ &H10000) And &HFF& End Function
