Hi, here you have the code:
Sub SetWallPaper(Bmp As Bitmap)
Dim r As Reflector
r.Target = r.RunStaticMethod("android.app.WallpaperManager", "getInstance", _
Array As Object(r.GetContext), Array As String("android.content.Context"))
r.RunMethod4("setBitmap", Array As Object(Bmp), Array As String("android.graphics.Bitmap"))
End Sub
Sub Button1_Click
SetWallPaper(LoadBitmap(File.DirAssets, Image"&Main.wallpaper&".jpg"))
End Sub
I have tried both, put the file as read-only and check the option: "do not overwrite"
Thanks for your help!
Sefarat