Private Sub createNotif_Click
Dim n As NB6
Dim folder As String = Provider.SharedFolder '<====
Dim FileName As String = "sms.mp3"
File.Copy(File.DirAssets, FileName, folder, FileName)
n.Initialize("custom sound2", Application.LabelName, "HIGH").SmallIcon(smiley)
n.SetDefaults(False, True, True)
Try
n.CustomSound(Provider.GetFileUri("sms.mp3"))
Catch
Log(LastException)
End Try
Dim notification As Notification = n.Build("Testing", "Custom With Sound", "Waiting", Main)
notification.Notify(2)
End Sub