.BytesPerScanLine()
         .pvData = m_cAlphaLogoDown.DIBSectionBitsPtr
      End With
      CopyMemory ByVal VarPtrArray(bImage()), VarPtr(tImage), 4
       
      For x = 0 To m_cAlphaLogoDown.BytesPerScanLine - 4 Step 4
         For y = 0 To m_cAlphaLogoDown.Height - 1
            RGBToHSL bImage(x, y), bImage(x + 1, y), bImage(x + 2, y), h, s, l
            HLSToRGB hue, s, l, r, g, b
            bImage(x + 2, y) = r
            bImage(x + 1, y) = g
            bImage(x, y) = b
         Next y
      N