Sub Globals
Dim n As Notification
End Sub
Sub Activity_Create(FirstTime As Boolean)
n.Initialize
n.Icon = "icon"
n.SetInfo("aaa", "bbb", Me)
n.Notify(1)
End Sub
Sub activity_Click
n.Vibrate = False
n.Sound = False
n.SetInfo(DateTime.Now, DateTime.Now, Me)
n.Notify(1)
End Sub