Private Sub Button1_Click
Dim Left, Top, Width, Height As Int
Left = B4XImageView1.mBase.Width / 3
Top = B4XImageView1.mBase.Height/ 3
Width = 100dip
Height = 40dip
If Not(B4XImageView1.Bitmap.IsInitialized) Then
Log("Not initialized")
Else
Log("Initialized")
End If
Dim xBmp As B4XBitmap = B4XImageView1.Bitmap.Crop(Left, Top, Width, Height)
B4XImageView2.Bitmap = xBmp
End Sub