Ottenere le coordinate geografiche dei punti sulla mappa sui quali si passa con il puntatore del mouse

Per ottenere le coordinate geografichesui punti della mappa, sui quali si passa, si scorre con il puntatore del mouse (non è necessario tenere premuto un tasto del mouse mentre lo si sposta), ma si dovrà tenere conto e utilizzare l'Evento "_MouseMove()" della Classe MapView.

Mostriamo un esempio pratico:

Private MapView1 As MapView


Public Sub _new()
 
 With Me
   .W = Screen.AvailableWidth
   .H = Screen.AvailableHeight
   .Arrangement = Arrange.Fill
 End With
 With MapView1 = New MapView(Me) As "MapView1"
   .X = 0
   .Y = 0
 End With
 
End 

Public Sub Form_Open()
 
 With MapView1.Map
  .AddTile("Open Topo", "https://a.tile.opentopomap.org/{z}/{x}/{y}.png")
  .Zoom = 15
  .Center = MapPoint(41.89018, 12.49230)
End With
 
End

Public Sub MapView1_MouseMove()

 Dim pt As New Point(Mouse.X, Mouse.Y)
 Dim mp As MapPoint = MapView1.Map.PixelToMapPointRel(pt)
 
 Me.Text = "Lat. = " & Format(mp.Lat, "#.000000") & "   " & "Lon. = " & Format(mp.Lon, "#.000000")
 
End