Sub SetWallPaper(Bmp As Bitmap)
Dim nuNum = Starter.picNmbr -1 As String
clrMe
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"))
Log("picture name = " & Starter.lstGlbl.Get(Starter.picNmbr))
ShowToastAt(15, 15, "was " & nuNum & " now " & Starter.picNmbr, True)
End Sub