h tSADst
        .cbElements = 1
        .cDims = 2
        .Bounds(0).lLbound = 0
        .Bounds(0).cElements = cDst.Height
        .Bounds(1).lLbound = 0
        .Bounds(1).cElements = cDst.BytesPerScanLine()
        .pvData = cDst.DIBSectionBitsPtr
    End With
    CopyMemory ByVal VarPtrArray(bDibDst()), VarPtr(tSADst), 4
      
   Dim x As Long, y As Long
   Dim xDest As Long, yDest As Long
   Dim xEnd As Long, yEnd As Long
   If (lDestWidth = -1) Then
      lDestWidth = cDst.Width
      If (lDestWidt