Sub Push2(Titulo As String, texto As String)
Dim n As Notification
IdNotification = IdNotification + 1
n.Initialize
n.Icon = "icon"
n.Vibrate = True
n.Sound = True
' n.OnGoingEvent = True
n.AutoCancel = True
'n.SetInfo(Titulo, texto, act_notificaciones)
n.SetInfo2(Titulo,texto, Titulo, act_notificaciones)
n.Notify(IdNotification)
End Sub