Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Private Player As MediaPlayer ' <- player obj
Private PlayerIni As Boolean ' <- variable for checking initialization
End Sub
Sub PlayFile(sndFileName As String)
If Not(PlayerIni) Then
PlayerIni=True
Player.Initialize()
End If
If Player.IsPlaying Then
Player.stop
End If
Player.Load(File.DirAssets,sndFileName)
Player.Play
End Sub