Trying to get the RGB color for the deafult background color on access forms. The value is -2147483633. All the functions I found to not handle negative numbers. I must be missing something. This may not be terribly difficult but 500 points to the person that can get me the answer quickest. thanks
'this function I found on EE does not handle negative values. ???
Public Sub CompositeRGB( _
ByVal lngRGB As Long, _
ByRef intRed As Integer, _
ByRef intGreen As Integer, _
ByRef intBlue As Integer)
' Calculate discrete RGB colours from composite colour value.
' 1999-08-20. Cactus Data ApS, CPH
If lngRGB < 0 Then
' Nothing to do.
intRed = 0
intGreen = 0
intBlue = 0
' Dissolve composite RGB into discrete colours.
intRed = lngRGB And vbRed '
intGreen = (lngRGB And vbGreen) / &H100
intBlue = (lngRGB And vbBlue) / &H10000
Debug.Print intRed, intGreen, intBlue