Sub NotifyV6(UserImage As String,NotifyText As String)
Dim Rp As RuntimePermissions
Dim Folder As String = Rp.GetSafeDirDefaultExternal("shared")
Dim FileName As String = "msgting.mpeg"
Dim n As NB6
n.Initialize("Mensagem Nexphone",Application.LabelName,"HIGH")
n.SmallIcon(LoadBitmapResize(File.DirAssets,"logonexphone8.png",24dip,24dip,True))
n.SetDefaults(False,True,True)
n.AutoCancel(True)
If File.Exists(File.DirInternal,UserImage) Then
n.LargeIcon(NativeMe.RunMethod("getRoundBitmap",Array(LoadBitmap(File.DirInternal,UserImage))))
Else
n.LargeIcon(NativeMe.RunMethod("getRoundBitmap",Array(LoadBitmap(File.DirAssets,"ic_person_black_48dp.png"))))
End If
Dim CsUri As String = CreateFileProviderUri(Folder, FileName)
n.CustomSound(CreateFileProviderUri(Folder, FileName))
Dim Notification As Notification
Notification.Initialize
Notification.OnGoingEvent = False
Notification = n.Build("Nova Mensagem",NotifyText, "", chats)
Try
Notification.Notify(20)
Sleep(200)
Catch
Log(LastException)
End Try
End Sub