SAFEARRAY2D
      Dim bImage() As Byte
      
      With tImage
         .cbElements = 1
         .cDims = 2
         .Bounds(0).lLbound = 0
         .Bounds(0).cElements = m_cAlphaLogo.Height
         .Bounds(1).lLbound = 0
         .Bounds(1).cElements = m_cAlphaLogo.BytesPerScanLine()
         .pvData = m_cAlphaLogo.DIBSectionBitsPtr
      End With
      CopyMemory ByVal VarPtrArray(bImage()), VarPtr(tImage), 4
       
      Dim tDisabled As SAFEARRAY2D
      Dim bDisabled() As Byte
      
      With tDi