Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
If Activity.Width > Activity.Height Then
Activity.LoadLayout("SplashL")
'Added to try to force orientation change when needed.
Fone.SetScreenOrientation(0)
Else
Activity.LoadLayout("Splash")
'Added to try to force orientation change when needed.
Fone.SetScreenOrientation(1)
End If
' StartActivity(Contents)
Init
If FirstTime = True Then
ShowSplash
Else
ShowMenu
End If
End Sub