Sub GPS_LocationChanged (Location1 As Location)
Dim jo As JavaObject = Location1
Dim IsMock As Boolean = jo.RunMethod("isFromMockProvider", Null)
If IsMock = False Then
If DateTime.Now > LastUpdateTime + 10 * DateTime.TicksPerSecond Then
Dim n As Notification = CreateNotification($"$2.5{Location1.Latitude} / $2.5{Location1.Longitude}"$)
n.Notify(nid)
LastUpdateTime = DateTime.Now
gpslat = Location1.Latitude
gpslong = Location1.Longitude
CallSubDelayed2(Main,"Update_Location",Location1)
End If
Else
CallSubDelayed2(Main,"CheckMock_Location",IsMock)
End If
End Sub