Dim sg As New StreamGeometry()
            Using ctx As StreamGeometryContext = sg.Open
                For i As Integer = 0 To mLinePoints.Count - 1
                    ctx.BeginFigure(mLinePoints(i)(0), False, False)
                    ctx.PolyLineTo(mLinePoints(i), True, True)
                Next
            End Using
            dc.DrawGeometry(Nothing, pen, sg)

            Dim drawing As New PathGeometry()
            Dim lineFigure As PathFigure()
            Dim pl As PolyLineSegment
            For i As Integer = 0 To mLinePoints.Count - 1
                lineFigure = New PathFigure()
                lineFigure.StartPoint = mLinePoints(i)(0)
                pl = New PolyLineSegment(mLinePoints(i), True)
                lineFigure.Segments.Add(pl)
                drawing.Figures.Add(lineFigure)
            Next
            dc.DrawGeometry(Nothing, pen, drawing)