Dim r As Reflector
Dim b As Bitmap
Dim d As BitmapDrawable
b.InitializeMutable(Activity.Width,Activity.Height)
d.Initialize(b)
r.Target = r.RunStaticMethod("android.app.WallpaperManager", "getInstance", Array As Object(r.GetContext), Array As String("android.content.Context"))
Activity.Background = r.RunMethod("getDrawable")