Sub notifica
Dim n As NB6
n.Initialize("default", Application.LabelName, "DEFAULT").AutoCancel(False).SmallIcon(smiley)
n.Build("POS SumUp", "CONNESSO", "tag1", Me).Notify(4) 'It will be Main (or any other activity) instead of Me if called from a service.
End Sub