Sub TiledBackGround
Dim bd As BitmapDrawable
bd.Initialize(LoadBitmap(File.DirAssets,"tileback.jpg"))
Dim r As Reflector
r.Target = bd
r.RunMethod3("setTileModeXY","REPEAT", "android.graphics.Shader$TileMode", _
"REPEAT", "android.graphics.Shader$TileMode")
Activity.Background = bd
End Sub