Sub FitCenterBitmap(Imv As ImageView, Bmp As Bitmap) As Bitmap
Private cvs As Canvas
cvs.Initialize(Imv)
Dim rectDest As Rect
Dim delta As Int
If Bmp.Width / Bmp.Height > Imv.Width / Imv.Height Then
delta = (Imv.Height - Bmp.Height / Bmp.Width * Imv.Width) / 2
rectDest.Initialize(0, delta,Imv.Width, Imv.Height - delta)
Else
delta = (Imv.Width - Bmp.Width / Bmp.Height * Imv.Height) / 2
rectDest.Initialize(delta, 0, Imv.Width - delta, Imv.Height)
End If
cvs.DrawBitmap(Bmp, Null, rectDest)
Imv.Invalidate
Return cvs.Bitmap
End Sub