Public Function CalculateDistance(ByVal StartLongitude As Single, ByVal StartLatitude As Single, ByVal EndLongitude As Single, ByVal EndLatitude As Single) As Single
CalculateDistance = Sqr((EndLongitude - StartLongitude) * (EndLongitude - StartLongitude) * Cos((StartLatitude + EndLatitude) / 114.591559026165) * Cos((StartLatitude + EndLatitude) / 114.591559026165) * 4784.39411916406 + (EndLatitude - StartLatitude) * (EndLatitude - StartLatitude) * 4766.8999155991)
End Function