How to Get The RGB of a Color Value in Visual Basic

This functions will returns the red, blue and green value of a color value.

'-->RETURNS THE RED COLOR VALUE
Private Function Red(ByVal Color As Long) As Integer
    Red = Color Mod &H100
End Function

'-->RETURNS THE GREEN COLOR VALUE
Private Function Green(ByVal Color As Long) As Integer
    Green = (Color \ &H100) Mod &H100
End Function

'-->RETURNS THE BLUE COLOR VALUE
Private Function Blue(ByVal Color As Long) As Integer
    Blue = (Color \ &H10000) Mod &H100
End Function

Here's how to use this functions (see the image above for the result):

Private Sub Command1_Click()
    MsgBox "Red: " & Red(Me.BackColor) & "," & vbNewLine & _
            "Blue: " & Blue(Me.BackColor) & "," & vbNewLine & _
            "Green: " & Green(Me.BackColor), _
            vbInformation, "Form RGB Color"
End Sub