Sub Crop_Image(V As B4XView, left As Int, top As Int, width As Int, height As Int) As Bitmap
Dim Btm As Bitmap = V.Snapshot
Dim Canv As Canvas
Dim MyBitmap As Bitmap
MyBitmap.InitializeMutable(width,height)
Canv.Initialize2(MyBitmap)
Dim R As Rect
R.Initialize(left,top,width,height)
Dim R2 As TextReader
R2.Initialize(0,0,width,height)
Canv.DrawBitmap(Btm,R,R2)
Return Canv.Bitmap
End Sub