Sub BigText_Notification(title As String, message As String)
Dim n As NB6
n.Initialize("default", Application.LabelName, "HIGH").SmallIcon(icon)
Dim cs As CSBuilder
''n.BigPictureStyle(icon.Resize(256dip, 256dip, True), icon, title, message)
n.BigTextStyle(title, cs.Initialize.BackgroundColor(Colors.Green).Append("Message Summary").PopAll, message)
Dim cur1 As Cursor
cur1 = Common.SQL1.ExecQuery("SELECT * FROM registration")
cur1.Position = 0
'check if user is registered to a group, otherwise register to group by
'getting groupregistered flag in notification message.
Dim groupregistered As Int
Try
groupregistered = cur1.GetInt("groupregistered")
If groupregistered <> 0 Then
n.Build(title, "Read Content Below", "notification_alert", CustomMessages).Notify(1)
Else
n.Build(title, "Read Content Below", "notification_alert", Main).Notify(1)
End If
Catch
n.Build(title, "Read Content Below", "notification_alert", Main).Notify(1)
End Try
End Sub