What I see right now for the coordinates 52.52033763987445, 13.376083912073048 is the following InLat=52.52033763987445 and InLon=13.376083912073048
Public Sub ShowMap(InLat As Variant, InLon As Variant)
Dim iZoom As Integer
Dim fLatitude, fLongitude As Float
Dim sCacheName, sTileName, sTilePattern As String
Dim cArguments As New Collection
Dim sPoint As String
Inc iCounter
iZoom = 13
sTileName = "OpenStreetMap"
sTilePattern = "http://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png"
cArguments = Null
sCacheName = Null
fLatitude = CFloat(InLat) ' °Lat
fLongitude = CFloat(InLon) ' °Lon
sPoint = CStr(fLatitude) & ", " & CStr(fLongitude)
Debug RB_Openstreetmap.Value
Debug RB_GoogleMaps.Value
If RB_Openstreetmap.Value = True Then
sTileName = "OpenStreetMap"
MapView1.Map.AddTile(sTileName, sTilePattern, cArguments, sCacheName)
MapView1.Map[sTileName].Copyright = " © OpenStreetMap"
Endif
If RB_GoogleMaps.Value = True Then
sTileName = "GoogleMaps"
MapView1.Map.AddTile("GoogleMaps", "https://khms{s}.google.it/kh/v={version}&src=app&x={x}&y={y}&z={z}&s=Galile", ["version": "869"]).SubDomains = ["0", "1", "2"]
MapView1.Map[sTileName].Copyright = " © GoogleMaps"
Endif
If RB_virtualearth.Value = True Then
sTileName = "VirtualEarth"
MapView1.Map.AddTile(sTileName, "http://ecn.dynamic.t{s}.tiles.virtualearth.net/comp/ch/{q}?mkt=fr-fr&it=G,VE,BX,L,LA&shading=hill&n=z&cb=1").SubDomains = ["0", "1", "2"]
MapView1.Map[sTileName].Copyright = " © VirtualEarth"
Endif
MapView1.Map.DefaultCache = "/tmp"
MapView1.Map[sTileName].Visible = True ' optional;
MapView1.Map.AddShape("P" & iCounter)
'MapView1.Map!P1.AddPoint(sPoint, MapPoint(fLatitude, fLongitude))
MapView1.Map["P" & iCounter].AddPoint(sPoint, MapPoint(fLatitude, fLongitude))
MapView1.Map.Center = MapPoint(fLatitude, fLongitude)
MapView1.Map.Zoom = iZoom
MapView1.AllowEffect = True
End ' ShowMap()
Any ideas?