Public Sub TileNumbersToLonLat(xTitle As Double, yTile As Double, Zoom As Double) As Double()
Dim n As Double = Power(2, Zoom)
Dim Lon_Deg As Double = xTitle / n * 360.0 - 180.0
Dim Lat_Deg As Double = ToDeg(ATan(SinH(cPI * (1 - 2 * yTile / n))))
Return Array As Double(Lon_Deg, Lat_Deg)
End Sub
Public Sub ToDeg(Value As Double) As Double
Return Value * 180 / cPI
End Sub
Public Sub SinH(Value As Double) As Double
Return (Power(cE, Value) - Power(cE, -Value)) / 2
End Sub