Sub Watermark (Image As Bitmap, background as bitmap) As Bitmap
Dim PhotoCanvas As Canvas
Dim PhotoPanel As Panel
Dim PhotoView As ImageView
Dim NewImage As Bitmap
Dim bView As Bitmap
PhotoPanel.Initialize("")
PhotoPanel.Width = Image.Width
PhotoPanel.Height = Image.Height
PhotoView.Initialize("")
PhotoView.Bitmap = Image
PhotoPanel.AddView(PhotoView, 0, 0, Image.Width ,Image.Height)
PhotoCanvas.Initialize(PhotoPanel)
NewImage = PhotoCanvas.CreateBitmap
Return NewImage
End Sub