Sub Button1_Click
TakePicture (ImageView1.Width, ImageView1.Height)
Wait For Image_Available(Success As Boolean, bmp As B4XBitmap)
Log("Success: " & Success)
If Success Then
Try
ImageView1.SetBitmap(bmp)
Catch
Log(LastException)
End Try
End If
Log("image set ")
End Sub