CodeItBetter Programming Another VB Programming Blog

'Math - How to get the RGB value of a Color

Option Explicit
 
Private Function Red&(ByVal Color&)
    Red = Color And (Not &HFFFFFF00)
End Function
 
Private Function Green&(ByVal Color&)
    Green = (Color And (Not &HFFFF00FF)) \ &H100&
End Function
 
Private Function Blue&(ByVal Color&)
    Blue = (Color And (Not &HFF00FFFF)) \ &HFFFF&
End Function
 
Private Sub Main()
    MsgBox Red(&HFF&) & "," & Green(&HFF&) & "," & Blue(&HFF&)
End Sub