Dim n As NB6
Dim smiley As Bitmap
smiley = LoadBitmapResize(File.DirAssets, "smiley.png", 24dip, 24dip, False)
n.Initialize("default", Application.LabelName, "DEFAULT").AutoCancel(True).SmallIcon(smiley)
n.BigTextStyle(cs1, "summary text", Message.GetData.Get("body"))
n.Build("title", "collapsed content", "tag", Me).Notify(1)