I know you can write a code like this Public Sub DistanceInMeters(Lat1 As Double,Long1 As Double,Alt1 As Int,Lat2 As Double,Long2 As Double,Alt2 As Int) As Double Dim XYZ1(3) As Double=LocationToPoint(Lat1,Long1,Alt1) Dim XYZ2(3) As Double=LocationToPoint(Lat2,Long2,Alt2) Dim dx As...
www.b4x.com