Public Sub CreateNotification(TitleX As String, ContentX As String)
icon = LoadBitmapResize(File.DirAssets, "logox.png", 24dip, 24dip, False)
Debug(TitleX &" "& ContentX)
Dim n As NB6
n.Initialize("default", Application.LabelName, "DEFAULT").AutoCancel(True).SmallIcon(icon)
Dim cs As CSBuilder
n.SubText(cs.Initialize.BackgroundColor(Colors.Yellow).Append(" ").PopAll)
Dim Title As Object = cs.Initialize.Color(Colors.Green).Append(TitleX).PopAll
Dim Content As Object = cs.Initialize.Underline.Bold.Append(ContentX).PopAll
Dim largeIcon As Bitmap = LoadBitmapResize(File.DirAssets, "logo.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", Me).Notify(5)
End Sub