Public Shared Function TileToLongLat(tileX As Double, tileY As Double, zoom _
      As Integer) As Point
        Dim lon As Double, lat As Double
        Dim n As Double = Math.Pow(2.0, zoom)
        lon = 360 / n * tileX - 180
        lat = (2 * Math.Atan(Math.Pow(Math.E, Math.PI - 2 * Math.PI * tileY / _
          n)) - 1 * Math.PI / 2) / Math.PI * 180
        Return New Point(lon, lat)
    End Function