Public Class Path_Class
 
    Dim MyPath As New Path
    Dim MyPathGeo As New PathGeometry
    Dim MyPathFigColl As New PathFigureCollection
    Dim MyPathFig As New PathFigure
    Dim MyPathSegColl As New PathSegmentCollection
    Dim G As Grid
    Dim Figure_started As Boolean
 
    Public Property Gr As Grid
        Set(ByVal value As Grid)
            G = value
        End Set
        Get
            Return G
        End Get
    End Property
 
    Public ReadOnly Property Started As Boolean
        Get
            Return Figure_started
        End Get
    End Property
 
    Public Sub initialize()
        MyPath.Stroke = Brushes.Black
        MyPath.StrokeThickness = 1
        MyPath.Data = MyPathGeo
        MyPathGeo.Figures = MyPathFigColl
        G.Children.Add(MyPath)
    End Sub
 
    Public Sub newFigure(ByVal p As Point)
        MyPathFig = New PathFigure
        MyPathFigColl.Add(MyPathFig)
        MyPathFig.Segments = MyPathSegColl
        MyPathFig.StartPoint = p
        Figure_started = True
    End Sub
 
    Public Sub AddBezier(ByVal p1 As Point, ByVal P2 As Point, ByVal p3 As _
      Point)
        Dim Seg As New BezierSegment
        Seg.Point1 = p1
        Seg.Point2 = P2
        Seg.Point3 = P3
        MyPathSegColl.Add(Seg)
    End Sub
 
    Public Sub addLine(ByVal P As Point)
        Dim Seg As New LineSegment
        Seg.Point = P
        MyPathSegColl.Add(Seg)
    End Sub
 
    Public Sub EndFigure()
        Figure_started = False
    End Sub
End Class

Class MainWindow 
 
    Dim Pfad As New Path_Class
 
 
    Public Sub New()
 
        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf 
        ' hinzu.
        Pfad.Gr = DrawGrid
        Pfad.initialize()
 
    End Sub
 
    Private Sub MainWindow_MouseLeftButtonDown(ByVal sender As Object, ByVal e _
      As System.Windows.Input.MouseButtonEventArgs) Handles _
      Me.MouseLeftButtonDown
        Dim p As Point
        Dim x As Integer
        Dim y As Integer
 
        x = e.GetPosition(Grid).X
        y = e.GetPosition(Grid).Y
        If x > DrawGrid.Margin.Left And x < (DrawGrid.Margin.Left + _
          DrawGrid.Width) And y > DrawGrid.Margin.Top And y < ( _
          DrawGrid.Margin.Top + DrawGrid.Height) Then
            p = e.GetPosition(DrawGrid)
            If Pfad.Started = True Then
                Pfad.addLine(p)
            Else
                Pfad.newFigure(p)
            End If
        End If
 
 
    End Sub
 
    Private Sub MainWindow_MouseRightButtonDown(ByVal sender As Object, ByVal e _
      As System.Windows.Input.MouseButtonEventArgs) Handles _
      Me.MouseRightButtonDown
        Pfad.EndFigure()
    End Sub
End Class