Disegnare un mirino come cursore del mouse su una MapView

E' possibile disegnare un mirino come cursore del mouse, quando ci si sposta su una MapView e mostrare la latitudine e la longitudine corrispondente al centro del mirino.
Si farà uso della "DrawingArea", Oggetto "Figlio" di un "Panel", "Figlio" quest'ultimo a sua volta dell'Oggetto "MapView":

MapView
⬇ padre di un
Panel
⬇ padre di una
DrawingArea

Mostriamo di seguito un codice esemplificativo:

Private MapView1 As MapView
Private DrawingArea1 As DrawingArea
Private mp As MapPoint = MapPoint(41.8903, 12.492255)


Public Sub Form_Open()
 
 Dim pn As Panel
 
 With Me
   .W = Screen.AvailableWidth
   .H = Screen.AvailableHeight
   .Arrangement = Arrange.Fill
   .Mouse = Mouse.Blank
 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 = 15
' Imposta il centro della mappa:
   .Map.Center = mp
 End With
 
' Individua dapprima l'Oggetto "Figlio" della "MapView", che è un "Panel":
 pn = MapView1.Children[0]
' Quindi individua l'Oggetto "Figlio" del "Panel", che è una "DrawingArea":
 DrawingArea1 = pn.Children[0]
  
End

 
Public Sub MapView1_MouseMove()
 
 Dim pt As New Point(Mouse.X, Mouse.Y)
 Dim lat As Float = MapView1.Map.PixelToMapPointRel(pt).Lat
 Dim lon As Float = MapView1.Map.PixelToMapPointRel(pt).Lon
 
 mp = MapPoint(lat, lon)
 
 MapView1.Refresh
 MapView1.Map.Refresh
 
End


Public Sub MapView1_Draw()
 
 Dim c, x, y, r As Short
 Dim po As Point = MapView1.Map.MapPointToPixelRel(mp)
 
 With Paint
' Disegna sull'Oggetto "Figlio" del "Panel", che è una "DrawingArea", la stessa che la Classe "MapView" usa per mostrare la mappa:
   .Begin(DrawingArea1)
   .Brush = .Color(Color.DarkOrange)
   .LineWidth = 2.0
   .Arc(MapView1.Map.MapPointToPixelRel(mp).X, MapView1.Map.MapPointToPixelRel(mp).Y, 50, 0, 360, False)
   .Arc(MapView1.Map.MapPointToPixelRel(mp).X, MapView1.Map.MapPointToPixelRel(mp).Y, 30, 0, 360, False)
   .Stroke
   .Brush = .Color(Color.Red)
   .Arc(MapView1.Map.MapPointToPixelRel(mp).X, MapView1.Map.MapPointToPixelRel(mp).Y, 1.5, 0, 360, False)
   .Fill
   
   r = 50
   x = po.X
   y = po.Y
   
   For c = 0 To 270 Step 90
     po.X = x + r * Cos(Rad(c)) 
     po.Y = y + r * Sin(Rad(c))
     .MoveTo(po.X, po.Y)
' Per ridurre la lunghezza della "x" per i gradi 0, 90, 180 e 270 è necessaria questa sequenza: +n 0 -n 0 che si ottiene con il Coseno di c.
' Per ridurre la lunghezza della "y" per i gradi 0, 90, 180 e 270 è necessaria questa sequenza: 0 -n 0 +n che si ottiene con il Coseno di c + 90.
     .LineTo(x + (20 * Cos(Rad(c))), y - (20 * Cos(Rad(c + 90))))
     .Stroke
   Next
' Disegna in prossimità del mirino le coordinate geografiche, Latitudine e Longitudine, correnti del punto centrale del mirino:
   .Brush = .Color(Color.Yellow)
   .DrawText(Format(mp.Lat, "0.######"), x + r * Cos(Rad(270)) - (Me.Font.TextWidth(Format(mp.Lat, "0.######")) / 2), (y + (r + 15) * Sin(Rad(270))), Me.Font.TextWidth(Format(mp.Lat, "0.######")), Me.Font.TextHeight(Format(mp.Lat, "0.######")), Align.Left)
   .DrawText(Format(mp.Lon, "0.######"), x + r * Cos(Rad(0)) - (Me.Font.TextWidth(Format(mp.Lon, "0.######")) / 2), (y + (r + 15) * Sin(Rad(0))), Me.Font.TextWidth(Format(mp.Lon, "0.######")), Me.Font.TextHeight(Format(mp.Lon, "0.######")), Align.Left)
   .End
 End With
 
End