Sub Notification_WithCustomSound(title As String, body As String, moduleName As String)
Dim FileName As String = "ringtone1.mp3"
File.Copy(File.DirAssets, FileName, Provider.SharedFolder, FileName)
Dim in As Intent
in.Initialize(in.ACTION_VIEW, "")
Provider.SetFileUriAsIntentData(in, FileName)
Dim n As NB6
n.Initialize("custom sound", Application.LabelName, "HIGH")
n.SmallIcon(LoadBitmapResize(File.DirAssets, "logo.png", 32dip, 32dip, True))
n.SetDefaults(False, True, True)
n.CustomSound(Provider.GetFileUri(FileName))
Dim Notification As Notification = n.Build(title, body, moduleName , Main)
Notification.Notify(3)
End Sub