Friend Shared Function LongLatToTile(lon As Double, lat As Double, zoom As _
     Integer) As Point
      Dim lon_rad As Double = DegreeToRadian(lon)
      Dim lat_rad As Double = DegreeToRadian(lat)
      Dim n As Double = Math.Pow(2.0, zoom)
 
      Dim tileX As Double = ((lon + 180) / 360) * n
      Dim tileY As Double = (1 - (Math.Log(Math.Tan(lat_rad) + 1.0 / Math.Cos( _
        lat_rad)) / Math.PI)) * n / 2.0
 
      Return New Point(tileX, tileY)
   End Function
 
   Friend Shared Function DegreeToRadian(ByVal degree As Double) As Double
      Return (Math.PI / 180) * degree
   End Function

   Friend Shared Function TileToLongLat(tile_x As Double, tile_y As Double, _
     zoom As Integer) As Point
      Dim p As Point = New Point()
      Dim n As Double = Math.PI - ((2.0 * Math.PI * tile_y) / Math.Pow(2.0, _
        zoom))
 
      p.X = CSng((tile_x / Math.Pow(2.0, zoom) * 360.0) - 180.0)
      p.Y = CSng(180.0 / Math.PI * Math.Atan(Math.Sinh(n)))
 
      Return p
   End Function

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control