Dim CC As ContentChooser : CC.Initialize("CC")
CC.Show("image/*", "Choose image")
Wait For (CC) CC_Result (Success As Boolean, Dir As String, FileName As String)
If Success = True Then
Wait For (File.CopyAsync(Dir,FileName, File.DirInternalCache, "tmp_img.jpg")) Complete (Success As Boolean)
If Success Then
'File.Combine(File.DirInternalCache, "tmp_img.jpg") 'you can now get your image
End If
Else
ToastMessageShow("No Success :(",True)
End If