Dim n As Notification
If(Lamp And Trillen) Then
nb.Initialize("chauffeurlt", Application.LabelName, "HIGH").AutoCancel(True).SmallIcon(Icon)
Else If(Lamp) Then
nb.Initialize("chauffeurl", Application.LabelName, "HIGH").AutoCancel(True).SmallIcon(Icon)
Else If(Trillen) Then
nb.Initialize("chauffeurt", Application.LabelName, "HIGH").AutoCancel(True).SmallIcon(Icon)
Else
nb.Initialize("chauffeur", Application.LabelName, "HIGH").AutoCancel(True).SmallIcon(Icon)
End If
nb.SetDefaults(False,Lamp,Trillen)
nb.TimeoutAfter(18000)
nb.AddButtonAction(Null, cs.Initialize.Color(Colors.Red).BackgroundColor(Colors.LightGray).Size(20).Bold.Append("Stop alarm").PopAll, StopAlarm, "Stop alarm")
n=nb.Build("CIRIS Chauffeur", Body, "CIRIS Chauffeur", Beveiliging)
n.Notify(2)