Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout")
If FirstTime Then
ShowSplash
End If
'Here everything goes on.......
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
private Sub ShowSplash
SplashPanel.Visible = True
Sleep(4000)
SplashPanel.Visible = False
End Sub