سلام
ابتدا کتابخانه Reflector را تیک بزنید و سپس ساب زیر را اضافه کنید:
Sub SetBackground(Pic As Bitmap)
Try
Dim b As Int
b = Msgbox2("آیا مایل هستید عکس انتخاب شده به عنوان تصویر پس زمینه تنظیم گردد؟","","بلی","خیر","",Null)
If b = DialogResponse.POSITIVE Then
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(Pic), Array As String("android.graphics.Bitmap"))
ToastMessageShow("عملیات با موفقیت انجام شد!",True)
End If
Catch
ToastMessageShow("خطا!",True)
End Try
End Sub
همان طور که پیداست باید از این Sub استفاده کنید.