Sub GPS_LocationChanged (Location1 As Location)
meLoc.Latitude = Location1.Latitude
meLoc.Longitude = Location1.Longitude
End Sub
rvLoc.Latitude = latt
rvLoc.Longitude = longt
bearing = meLoc.BearingTo(rvLoc)
Sub Location_LocationChanged (Longitude As Double, Latitude As Double, Altitude As Double, Accuracy As Float, Bearing As Float, Provider As String, Speed As Float, Time As Long)
End Sub