'Code module
Sub Process_Globals
'These global variables will be declared once when the application starts.
'Public variables can be accessed from all modules.
Dim pg As Page
Private play As ImageView
Private Label1 As Label
Private Label2 As Label
Dim mp As MediaPlayer
End Sub
Public Sub Show
If pg.IsInitialized = False Then
pg.Initialize("pg")
pg.RootPanel.LoadLayout("test")
pg.HideBackButton = True '<-- don't want to allow the user to return to the login screen
End If
Main.NavControl.ShowPage(pg)
mp.Initialize(File.DirAssets,"8.mp3","mp")
mp.Looping= False
mp.play
Label1.Text= "8"
Label2.Text = "Lavel8"
End Sub
Sub re_Click
mp.play
End Sub
Sub yes_Click
Menu.all = Menu.all +1
mp.stop
f.Show
End Sub
Sub no_Click
mp.stop
f.Show
End Sub