Sub Globals
Dim spr(128) As ImageView
Dim sheet As Bitmap
End Sub
Sub Activity_Create(FirstTime As Boolean)
sheet.Initialize(File.DirAssets, "smb.png") 'ladda in bilden
spr(0).Initialize("spr")
spr(0).Enabled=True
spr(0).Visible=True
spr(0).Bitmap=sheet
spr(0).Gravity=Gravity.FILL
spr(0).SetLayout(0,0,32,32)
End Sub