Sub imgChooser_Result (Success As Boolean, Dir As String, FileName As String)
Dim MyWidth As Int
Dim MyHeight As Int
MyWidth = imgPhoto.Width
MyHeight = imgPhoto.height
ImageName = FileName
If Success Then
imgPhoto.Bitmap = LoadBitmapSample(Dir, FileName, MyWidth, MyHeight)
imgPhoto.Gravity = Gravity.FILL
pnlViewer.Visible = True
btnMainReturn.Visible = False
ToastMessageShow("Image selected" & FileName, True)
Else
ToastMessageShow("No image selected", True)
End If
lblDetailsImageText.text = ImageName
End Sub