Sub Activity_Create(FirstTime As Boolean)
   SetWallPaper(LoadBitmap(File.DirAssets, "small_logo.png"))
End Sub
Sub Activity_Pause(UserClosed As Boolean)
   
End Sub
Sub Activity_Resume
End Sub
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