 HLSToRGB hue, s, l, r, g, b
            bImage(x + 2, y) = r
            bImage(x + 1, y) = g
            bImage(x, y) = b
         Next y
      Next x
       
      CopyMemory ByVal VarPtrArray(bImage), 0&amp;, 4
   End If
   
   If Not (m_cAlphaLogoDown Is Nothing) Then
      
      With tImage
         .cbElements = 1
         .cDims = 2
         .Bounds(0).lLbound = 0
         .Bounds(0).cElements = m_cAlphaLogoDown.Height
         .Bounds(1).lLbound = 0
         .Bounds(1).cElements = m_cAlphaLogoDown