im hue As Single, saturation As Single, luminance As Single
      Dim lC As Long
      lC = GetSysColor(vbButtonFace And &amp;H1F&amp;)
      r = (lC And &amp;HFF&amp;)
      g = (lC And &amp;HFF00&amp;) \ &amp;H100&amp;
      b = (lC And &amp;HFF0000) \ &amp;H10000
      RGBToHSL r, g, b, hue, saturation, luminance
      saturation = saturation * 0.1
      For x = 0 To m_cAlphaLogo.BytesPerScanLine - 4 Step 4
         For y = 0 To m_cAlphaLogo.Height - 1
            RGBToHSL bImage(x, y), bImage(x + 1, y),