sabled
         .cbElements = 1
         .cDims = 2
         .Bounds(0).lLbound = 0
         .Bounds(0).cElements = m_cDisabledLogo.Height
         .Bounds(1).lLbound = 0
         .Bounds(1).cElements = m_cDisabledLogo.BytesPerScanLine()
         .pvData = m_cDisabledLogo.DIBSectionBitsPtr
      End With
      CopyMemory ByVal VarPtrArray(bDisabled()), VarPtr(tDisabled), 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
      D