Dim x As Notification
x.Initialize
Dim intent1 As Intent
intent1.Initialize(intent1.ACTION_VIEW,"market://details?id=com.hbwares.wordfeud.free")
x.SetInfo2("title","txt","",intent1)
x.Icon="icon"
x.AutoCancel=False
x.Sound=True
x.Vibrate=True
x.Notify(l.new_notification_nr)