Function transparency(foreground,background,x_pos,y_pos,alpha#)
   image = CopyImage(foreground)
   w = ImageWidth(foreground)
   h = ImageHeight(foreground)
   
   LockBuffer ImageBuffer(foreground)
   LockBuffer ImageBuffer(background)
   LockBuffer ImageBuffer(image)

   For X = 0 To w - 1
      For Y = 0 To h - 1
         CI = ReadPixelFast(X,Y,ImageBuffer(foreground))
         red_I = (CI And $FF0000)/$10000
         green_I = (CI And $FF00)/$100
         blue_I = CI And $FF
         CB = ReadPixelFast(x + x_pos,y + y_pos,ImageBuffer(background))
         red_B = (CB And $FF0000)/$10000
         green_B = (CB And $FF00)/$100
         blue_B = CB And $FF
         red = (alpha * red_I + (1 - alpha) * red_b)
         green = (alpha * green_I + (1 - alpha) * green_b)
         blue = (alpha * blue_I + (1 - alpha) * blue_b)
         rgb = 255 * $1000000 + red * $10000 + green * $100 + blue
         WritePixelFast X,Y,rgb,ImageBuffer(image)
      Next
   Next
   
   UnlockBuffer ImageBuffer(foreground)
   UnlockBuffer ImageBuffer(background)
   UnlockBuffer ImageBuffer(image)
   
   Return image
End Function