ImportsNETGeographicLibModuleexample_GeodesicLineExactSubMain()Try' Print waypoints between JFK and SINDimgeodAsGeodesicExact=NewGeodesicExact()' WGS84Dimlat1AsDouble=40.64,lon1=-73.779' JFKDimlat2AsDouble=1.359,lon2=103.989' SINDims12,azi1,azi2AsDoubleDima12AsDouble=geod.Inverse(lat1,lon1,lat2,lon2,s12,azi1,azi2)DimlineAsGeodesicLineExact=NewGeodesicLineExact(geod,lat1,lon1,azi1,Mask.ALL)' Alternatively Dim line As GeodesicLineExact = geod.Line(lat1, lon1, azi1, Mask.ALL)DimdsAsDouble=500000.0' Nominal distance between points = 500 kmDimnumAsInteger=CInt(Math.Ceiling(s12/ds))' The number of intervals' Use intervals of equal lengthds=s12/numForiAsInteger=0TonumDimlat,lonAsDoubleline.Position(i*ds,lat,lon)Console.WriteLine(String.Format("i: {0} Latitude: {1} Longitude: {2}",i,lat,lon))Next' Slightly faster, use intervals of equal arc lengthDimdaAsDouble=a12/numForiAsInteger=0TonumDimlat,lonAsDoubleline.ArcPosition(i*da,lat,lon)Console.WriteLine(String.Format("i: {0} Latitude: {1} Longitude: {2}",i,lat,lon))NextCatchexAsGeographicErrConsole.WriteLine(String.Format("Caught exception: {0}",ex.Message))EndTryEndSubEndModule