lC = 1) Then
      Color = tRGBItem.rgbRed Or (tRGBItem.rgbGreen * &amp;H100) Or
       (tRGBItem.rgbBlue * &amp;H10000)
   Else
      Color = -1  ' CLR_INVALID
   End If
End Property
Public Property Let Color(ByVal nIndex As Long, ByVal lColor As Long)
Dim lC As Long
Dim tRGBItem As RGBQUAD
Dim lB As Long, lG As Long, lR As Long
   lB = (lColor And &amp;HFF0000) \ &amp;H10000
   lG = (lColor And &amp;HFF00&amp;) \ &amp;H100
   lR = (lColor And &amp;HFF)
   tRGBItem.rgbBlue = lB
   tRGBItem.rgbGreen = lG
  