Sub btnUpload_Click
Dim q As Int
q= Msgbox2("Upload picture?","Choose","","Cancel", Null)
If q = DialogResponse.POSITIVE Then
StartService(busyService)
ImageChooser.show("image/*", "Choose image")
Else If q = DialogResponse.NEGATIVE Then
ToastMessageShow("Operation cancelled", True)
Else If q = DialogResponse.CANCEL Then
ToastMessageShow("Operation cancelled", True)
End If
End sub