Sub Regular_Notification (Title As String, Content As String) As Notification
Dim n As NB6
n.Initialize("default", Application.LabelName, "LOW").AutoCancel(True).SmallIcon(NtfIcon)
n.SetDefaults(False, False, False)
Return n.Build(Title, Content, "tag1", Main)
End Sub
Sub RedLight_Notification (Title As String, Content As String) As Notification
Dim n As NB6
n.Initialize("redlight", Application.LabelName & "_Red_LED", "LOW").AutoCancel(True).SmallIcon(NtfIcon)
n.SetLights(Colors.Red, 1, 0)
Return n.Build(Title, Content, "tag2", Main)
End Sub
Sub GreenLight_Notification (Title As String, Content As String) As Notification
Dim n As NB6
n.Initialize("greenlight", Application.LabelName & "_Green_LED", "LOW").AutoCancel(True).SmallIcon(NtfIcon)
n.SetLights(Colors.Green, 1, 0)
Return n.Build(Title, Content, "tag3", Main)
End Sub