Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Dim PagesManager As B4XPagesManager
PagesManager.Initialize(NavControl)
NavControl.NavigationBarVisible = False
' Codigo personalizado
OriginalServer = Servidor
App.RegisterUserNotifications(True,True,True)
.....
Sub PlaySound(Archivo)
Dim n As Notification
n.Initialize(DateTime.Now)
Dim no As NativeObject = n
n.PlaySound = True
n.AlertBody = "Mi mensaje."
If App.OSVersion >= 8.2 Then
no.SetField("alertTitle", "Check point")
'Custom sound
no.SetField("soundName", Archivo)
n.Register
End If
End Sub