Private Sub GMapControl1_MouseDoubleClick()
  Dim z As New PointLatLng
  z = GMapControl1.FromLocalToLatLng(e.Location.X, e.Location.Y)
  GMapControl1.Overlays.Item(0).Markers.Add(New Markers.GMapMarkerGoogleGreen(z))
End Sub