Sub Notification_WithActions
Dim n As NB6
n.Initialize("default", Application.LabelName, "HIGH").Visibility("PUBLIC").SmallIcon(smiley).AutoCancel(True)
n.AddButtonAction(smiley, "Action 1", MyService, "action 1")
Dim cs As CSBuilder
n.AddButtonAction(Null, cs.Initialize.Color(Colors.Red).Bold.Append("Action 2").PopAll, MyService, "action 2")
n.DeleteAction(MyService, "delete action")
n.Build("Actions", "Actions", "tag", Me).Notify(1)
End Sub