Dim n As NB6
Dim icono As Bitmap = LoadBitmapResize(File.DirAssets, "icon.png", 24dip, 24dip, False)
n.Initialize("default", Application.LabelName, "HIGH").AutoCancel(True).SmallIcon(icono)
Dim cs As CSBuilder
Dim title As Object = cs.Initialize.Color(Colors.Blue).Append(Message.GetData.Get("title")).PopAll
Dim Content As Object = cs.Initialize.Underline.Bold.Append(Message.GetData.Get("body")).PopAll
Dim largeIcon As Bitmap = LoadBitmapResize(File.DirAssets, "icon.png", 256dip, 256dip, True)
n.LargeIcon(largeIcon)
n.Color(Colors.Blue)
n.BadgeIconType("SMALL").Number(1)
n.ShowWhen(DateTime.Now)
n.Build(title, Content, "tag2", Main).Notify(5)