m bDibSrc() As Byte
    ' Get the bits in the from DIB section:
    With tSASrc
        .cbElements = 1
        .cDims = 2
        .Bounds(0).lLbound = 0
        .Bounds(0).cElements = cSrc.Height
        .Bounds(1).lLbound = 0
        .Bounds(1).cElements = cSrc.BytesPerScanLine()
        .pvData = cSrc.DIBSectionBitsPtr
    End With
    CopyMemory ByVal VarPtrArray(bDibSrc()), VarPtr(tSASrc), 4
      
   Dim tSADst As SAFEARRAY2D
   Dim bDibDst() As Byte
    ' Get the bits in the from DIB section:
    Wit