Path
  PathGeometry
    PathFigureCollection
      PathFigure
        PathSegmentCollection
          ArcSegment
          BezierSegment
          LineSegment 
      PathFigure
        PathSegmentCollection
          ArcSegment
          BezierSegment
          LineSegment

Public Class Path_Class
 
    Dim MyPath As New Path
    Dim MyPathGeo As New PathGeometry
    Dim MyPathFigColl As New PathFigureCollection
    Dim MyFig As New PathFigure
    Dim MyPathSegColl As New PathSegmentCollection
 
    Public Sub initialize()
        MyPath.Data = MyPathGeo
        MyPathGeo.Figures = MyPathFigColl
    End Sub
 
    Public Sub newFigure()
        MyFig.Segments = MyPathSegColl
    End Sub
 
    Public Sub setFigureStart(ByVal p As Point)
        MyFig.StartPoint = p
    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()
        MyPathFigColl.Add(MyFig)
    End Sub
End Class