Sub ResizeImage (Image As Bitmap, Width As Int, Height As Int) As Bitmap
Dim PhotoCanvas As Canvas
Dim PhotoPanel As Panel
Dim PhotoView As ImageView
Dim NewImage As Bitmap
PhotoPanel.Initialize("")
PhotoPanel.Width = Width / 2
PhotoPanel.Height = Height / 2
PhotoView.Initialize("")
PhotoView.Bitmap = Image
PhotoPanel.AddView(PhotoView,0,0,Width / 2,Height / 2)
PhotoCanvas.Initialize(PhotoPanel)
NewImage = PhotoCanvas.CreateBitmap
Return NewImage
End Sub