#Region Activity Attributes
#FullScreen: True
#IncludeTitle: False
#End Region
Sub Process_Globals
Dim libPhone As Phone
End Sub
Sub Globals
Dim libImage As ImageView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Start
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
Activity.Finish
End Sub
Sub Start
libPhone.SetScreenOrientation(1)
libImage.Initialize("libImage")
Activity.AddView(libImage, 0, 0, 500, 500)
libImage.Visible = True
libImage.Bitmap = LoadBitmap(File.DirRootExternal & "/Player/", "default.jpg")
End Sub