Dim ringtone As String="shotgun.mp3"
Dim rp As RuntimePermissions
Dim folder As String = rp.GetSafeDirDefaultExternal("shared")
Dim FileName As String = ringtone
'copy the file to the shared folder
File.Copy(File.DirAssets, FileName, folder, FileName)
Dim n As NB6
n.Initialize("Channel1", Application.LabelName, "HIGH")
n.SmallIcon(LoadBitmapResize(File.DirAssets, "arac2.png", 32dip, 32dip, True))
'disable the default sound
n.SetDefaults(False, True, True)
'set custom sound
n.CustomSound(CreateFileProviderUri(folder, FileName))
Dim Notification As Notification = n.Build(Message.GetData.Get("title"), Message.GetData.Get("body"), "", Me)
Notification.Notify(3)