Private Sub OMaps_Ready
LabelZoom.Text=OMaps.Zoom
OMaps.EditConfigure(0,45)
Log ("Map Ready")
wait for (OMapsExt.AddressToLatLon("Torre Eiffel")) COMPLETE (ll As LatLng)
Log ("Map Rady - After Wait")
OMaps.Zoom=16
OMaps.MoveCamera2(ll)
Dim Cr As MapCircle = OMaps.AddCircle(ll,50,2,fx.Colors.Red,fx.Colors.Yellow,0.5)
Dim Mk As Marker = OMaps.AddMarker2(ll.Latitude,ll.Longitude,"My Marker","https://cdn-icons-png.flaticon.com/512/684/684908.png")
Dim Pl As MapPolyline = OMaps.AddPolyline(Array(pt(48.8586973, 2.296136), pt(48.8572973, 2.297036), pt(48.8572973, 2.295236)),4,fx.Colors.Red)
Dim Pg As MapPolygon = OMaps.AddPolygon(Array(pt(48.8575703, 2.292737), pt(48.8561703, 2.293637), pt(48.8561703, 2.291837)),1,fx.Colors.Red,fx.Colors.Yellow,0.3)
ObjectMap.Put(Cr.ID,Cr)
ObjectMap.Put(Mk.ID,Mk)
ObjectMap.Put(Pg.ID,Pg)
ObjectMap.Put(Pl.ID,Pl)
End Sub