Sub MediaStyle_Notification
Dim n As NB6
n.Initialize("default", Application.LabelName, "DEFAULT").SmallIcon(smiley)
n.AddButtonAction(smiley, "Action 1", MyService, "action 1") 'use different bitmaps...
n.AddButtonAction(smiley, "Action 2", MyService, "action 2")
n.AddButtonAction(smiley, "Action 3", MyService, "action 3")
n.MediaStyle
n.Build("Actions", "Actions", "tag", Me).Notify(1)
End Sub