Dim rp As RuntimePermissions
Dim n As NB6
Dim folder As String = rp.GetSafeDirDefaultExternal("shared")
Dim FileName As String = "larm.wav"
File.Copy(File.DirAssets, FileName, folder, FileName)
Dim n As NB6
n.Initialize("default", Application.LabelName, "HIGH").SmallIcon(Smiley)
n.SetDefaults(False, True, True)
n.CustomSound(CreateFileProviderUri(folder, FileName))
n.Build(Body, Title, Body, Main).Notify(1)