Modifer la pathgeometry d'un Path WPF par la souris durant l'exécution

Question

Salut à tous,
Mon appli sert à créer, afficher des arcs à l'aide de boutons. En WPF VB.NET.
Les rayons des arcs devront être modifiables par la souris (maintenir bouton enfoncé et glisser).
Pour cela, j'ai créé une collection de Path dont les géométries (data) sont donc des ArcSegments.
Seulement voilà: une fois les arcs créés et affichés lors de l'exécution, je ne sais pas comment, à l'aide de la souris, augmenter/diminuer le rayon de l'ArcSegment d'un Path donné de la collection.
À L'AIDE SVP (VB de préférence). Voici mon code :

Public Sub ManipulerArc()
 
        Dim MonArc As New ArcSegment(New Point(80, 90), New Size(20, 20), 0, 1, SweepDirection.Clockwise, 1)
        Dim PSC As New PathSegmentCollection
        Dim PF As New PathFigure
        Dim PFC As New PathFigureCollection
        Dim PG As New PathGeometry
        Dim MonPath As New System.Windows.Shapes.Path
 
        PSC.Add(MonArc)
        PF.StartPoint = New Point(10, 40)
        PF.Segments = PSC
        PF.IsClosed = False
        PFC.Add(PF)
        PG.Figures = PFC
        MonPath.Data = PG
        MonPath.Stroke = Brushes.Red
        MonPath.StrokeThickness = 3
        Canvas.SetTop(MonPath, 20 * Count)
        MonPath.Tag = Me.Count
        Me.List.Add(MonPath)
        MonCanvas.Children.Add(MonPath)
 
        AddHandler MonPath.MouseDown, AddressOf ChangerRayonArc        'Gestionnaire pour changer par la souris, le Size de l'arc
 
    End Sub