Graphicspath + pathgradientbrush, addstring -string figure is not joined properly

See more:

VB

GDI+

graphics

VB14

I am using GraphicsPath to add a string, then the returned PathPoints i use for the PathGradientBrush to make the figure's backcolor gradient.

However most of the Fonts with clear-cut figures are not properly closed in GraphicsPath, while others those curved are properly joined.

I tried .CloseFigure, also manually tried to add a line from .PathPoints(0) to .PathPoints(PathPoints.Length-1), with no success. Has anybody experienced this behaviour?

e.Graphics.Clear(Me.BackColor)

            'drawing the string
            Using gp As New GraphicsPath
                gp.FillMode = FillMode.Winding

                gp.AddString(result, ft.FontFamily, ft.Style, ft.Size, stringLocation, StringFormat.GenericTypographic)
                gp.CloseFigure()

                Dim gpB As New PathGradientBrush(gp.PathPoints, WrapMode.Clamp)
                With gpB

                    '.FocusScales = New PointF(0.2!, 0.2!)
                    Dim _surroundingColor As Color = DimColor(_color, 255)
                    .SurroundColors = New Color(4 - 1) {}.[Select](Function(item) _surroundingColor).ToArray() 'make an array (optional), with 4 duplicate items
                    .SetSigmaBellShape(0.1!)
                    Dim _centerColor As Color = DimColor(_color, 200)
                    .CenterColor = _centerColor
                End With

                e.Graphics.PixelOffsetMode = PixelOffsetMode.HighQuality
                e.Graphics.SmoothingMode = SmoothingMode.HighQuality
                'draw pathgradientbrush into graphics buffer
                e.Graphics.FillPath(gpB, gp)
            End Using

What I have tried:

--------------------------------------------------------------