Private MapView1 As MapView
Private pn As Panel
Private mmpp As MapPoint[]
Private ct As Short
 
Public Sub Form_Open()
 
  With Me
    .W = Screen.AvailableWidth
    .H = Screen.AvailableHeight
    .Arrangement = Arrange.Fill
  End With
  With MapView1 = New MapView(Me) As "MapView1"
    .Map.AddTile("GoogleMap", "https://mt0.google.com/vt/lyrs=s&hl=&x={x}&y={y}&z={z}")
    .Map.Zoom = 14
' Establece el centro del mapa al principio:
    .Map.Center = New MapPoint(36.5139777, -6.2727421) ' ...Gades !  Consuli romano Shell antiquissima patria est !
  End With 
 
' Identifica el Objeto "Hijo" de la "Mapview", que es un "Panel":
   pn = MapView1.Children[0]
   
   mmpp = New MapPoint[]
 
End
 
Public Sub MapView1_MouseUp()
  
' Al hacer clic con el botón central del ratón, se dibujan en la superficie de la "Mapview" unos círculos concéntricos en el punto donde se ha hecho clic, y también se confirman los puntos previamente establecidos:
  If Mouse.Right Then 
    Dim pt As Point
    Dim c As Short
    pt = New Point(Mouse.X, Mouse.Y)
    mmpp.Push(MapView1.Map.PixelToMapPointRel(pt))
' Provee los datos para hacer dibujar unos círculos concéntricos secuencialmente sobre el mapa mostrada por el Objeto "Mapview":
    For c = 28 DownTo 1 Step 3
      ct = c
      MapView1.Refresh
      Wait 0.1
    Next 
    Me.Text = Format(MapView1.Map.PixelToMapPointRel(pt).Lat, "0.000000") & "   " &
              Format(MapView1.Map.PixelToMapPointRel(pt).Lon, "0.000000")
  Endif 
  
' Al hacer clic con el botón central del ratón, los puntos previamente dibujados son cacelados por la superficie de la "Mapview":
  If Mouse.Middle Then 
    mmpp.clear
    MapView1.Refresh
  Endif 
 
End
 
Public Sub MapView1_Draw()
  
  If mmpp.Count == 0 Then Return 
  
  Dim n As Integer
  With Paint
    .Begin(pn.Children[0])
    .Brush = .Color(Color.Red)
    For n = 0 To mmpp.Max - 1
      .Arc(MapView1.Map.MapPointToPixelRel(mmpp[n]).X, MapView1.Map.MapPointToPixelRel(mmpp[n]).Y, 2, Rad(0), Rad(360), False)
      .Fill
    Next 
    .Arc(MapView1.Map.MapPointToPixelRel(mmpp[mmpp.Max]).X, MapView1.Map.MapPointToPixelRel(mmpp[mmpp.Max]).Y, 2 * ct, Rad(0), Rad(360), False)
    If ct > 1 Then 
      .Stroke
    Else 
      .Fill
    Endif 
    .End
  End With
  
End