Depends on: Phone, JavaObject and ContentResolver libraries Sub AddBitmapToGallery (In As InputStream, TargetName As String, MimeType As String, RelativePath As String = "") Dim p As Phone Dim ctxt As JavaObject ctxt.InitializeContext If p.SdkVersion >= 29 Then Dim cr...
www.b4x.com