Sub BufferFromImage(slot, ByRef buffer)