VB Snippet - VBColor to RGB

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