Public Sub Geofence_Enter (Id As String)
Dim n As Notification
n.Initialize
n.Icon = "icon"
n.SetInfo("Enter: " & Id, "Enter", Main)
n.Notify(1)
ToastMessageShow("Enter: " & Id, True)
End Sub
Public Sub Geofence_Exit (Id As String)
Log("Exit: " & Id)
ToastMessageShow("Exit: " & Id, True)
Dim n As Notification
n.Initialize
n.Icon = "icon"
n.SetInfo("Exit: " & Id, "Exit", Main)
n.Notify(2)
End Sub