    bDibOut(x, y) = (14&amp; * bDibIn(x, y)) \ 16&amp; + (1&amp; * bDibIn(x2, y2) \
          16&amp;) + 16&amp;
         bDibOut(x + 1, y) = (14&amp; * bDibIn(x + 1, y)) \ 16&amp; + (1&amp; * bDibIn(x2 +
          1, y2) \ 16&amp;) + 16&amp;
         bDibOut(x + 2, y) = (14&amp; * bDibIn(x + 2, y)) \ 16&amp; + (1&amp; * bDibIn(x2 +
          2, y2) \ 16&amp;) + 16&amp;
         
      Next x
   Next y
   
   ' Clear the temporary array descriptor
   CopyMemory ByVal VarPtrArray(bDibIn), 0&amp;, 4
   CopyMe