Sub CreateNotification2 As Notification
Dim notification As NB6
' ToastMessageShow("Createnoti",True)
notification.Initialize(nid , Application.LabelName, "LOW") 'opletten met het wijzigen van de channel(s)
notification.SmallIcon(LoadBitmapResize(File.DirAssets, "smartphonelm2.png", 24dip, 24dip, False))
notification.SetDefaults(False,False,False)
Return notification.Build("App name","Company name", "", Main)
End Sub
Sub GPS_LocationChanged (Location1 As Location)
Dim lTime As Long
TimeTracker.Enabled=False
'do GPS stuff
Dim n As Notification = Starter.CreateNotification2
n.Notify(Starter.nid)
TimeTracker.Enabled=true
End Sub