Camera.TakePicture
Dim TopPage As String = B4XPages.GetManager.GetTopPage.Id
Wait For Camera_Complete (Success As Boolean, Image As Bitmap, VideoPath As String)
B4XPages.GetManager.mStackOfPageIds.Add(TopPage) 'this is required as the page will be removed from the stack when the external camera page appears.
If Success Then
Dim bmp As B4XBitmap = Image
bmp.Resize(TargetWidth, TargetHeight, True)
CallSubDelayed3(Me, "Image_Available", True, bmp)
Else
CallSubDelayed3(Me, "Image_Available", False, Null)
End If