, tRGB(i).rgbBlue, h, s, l
         l = l * fAmount
         HLSToRGB h, s, l, r, g, b
         If r &lt; 0 Then r = 0
         If r &gt; 255 Then r = 255
         If g &lt; 0 Then g = 0
         If g &gt; 255 Then g = 255
         If b &lt; 0 Then b = 0
         If b &gt; 255 Then b = 255
         tRGBOut(i).rgbBlue = b
         tRGBOut(i).rgbGreen = g
         tRGBOut(i).rgbRed = r
      Next
      lC = SetDIBColorTable(m_hDC, 0, 256, tRGBOut(0))
      Debug.Assert (lC = 256)
   End If
End Sub
Public Sub 