Sub Service_Start (StartingIntent As Intent)
Dim nb As NB6
nb.Initialize("default", Application.LabelName, "DEFAULT").AutoCancel(True).SmallIcon(LoadBitmapResize(File.DirAssets, "icon.png", 24dip, 24dip, False))
nb.ShowWhen(DateTime.Now)
nb.Color(Colors.Blue)
nb.Build("Events", "", "tag1", Main).Notify(1)
Service.StopAutomaticForeground
End Sub