Sub NotifyArrival
stoptime = DateTime.now
firedup = stoptime - Schedule.starttime
minute = firedup/1000
minute = minute / 60
findperiod = minute.IndexOf(".")
If findperiod > -1 Then
finalminute = minute.SubString2(0, findperiod)
'Log("minute " & finalminute)
Else
minute = firedup
'Log("minute " & finalminute)
End If
difference5 = Schedule.interval - finalminute
'Log("Difference5 " & firedup)
Dim cn As CustomNotification
cn.Initialize(2)
cn.Number = 1
cn.setIcon("icon")
cn.TickerText = "Bus Arrival Time Notification"
cn.AutoCancel = True
cn.SetTextColor("title", Colors.Red)
cn.SetTextColor("text", Colors.Blue)
cn.SetText("title", "Bus Arrival Time")
cn.SetText("text", "Your Bus will arrive in " & difference5 & " minutes")
cn.SetTextSize("title", 16)
cn.SetImage("image", LoadBitmap(File.DirAssets, "bus.png"))
cn.Notify(2)
End Sub