   .Bounds(1).cElements = m_cAlphaLogo.BytesPerScanLine()
         .pvData = m_cAlphaLogo.DIBSectionBitsPtr
      End With
      CopyMemory ByVal VarPtrArray(bImage()), VarPtr(tImage), 4
       
      Dim r As Long, g As Long, b As Long
      Dim x As Long, y As Long
      Dim h As Single, s As Single, l As Single
      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), bImage(x + 2, y), h, s, l
           