Sub btnStopp_Click
StopService(MyService) ' Klappt nicht, respektive wird die Benachrichtigung nicht geschlossen
End Sub
Sub btnStart_Click
NotifyIcon = LoadBitmapResize(File.DirAssets, "pflaster.png", 24dip, 24dip, False)
Dim cs As CSBuilder
Dim n As NB6
n.Initialize("default", Application.LabelName, "LOW").SmallIcon(NotifyIcon)
n.AddButtonAction(Null, "Button 1", MyService, "Button1")
n.AddButtonAction(Null, cs.Initialize.Color(Colors.Red).Bold.Append("Button 2").PopAll, MyService, "Button2")
n.DeleteAction(MyService, "delete action")
n.Color(0xFFFF0000)
n.SetDefaults(False, False, False)
n.Ongoing = True
n.Build("Benachrichtigung", "Bitte auf einen Button tippen.", "tag", Me).Notify(1)
End Sub