Function ApplyCustomHatchFill(Angle As Double, Spacing As Double, [Shift As Double], [OriginX As Double], [OriginY As Double], [Width As Double = -1], [Color As Color], [Style As OutlineStyle], [DashDotLength As Double = -1], [PenWidth As Double], [BackColor As Color], [TransformWithShape As Boolean = False], [ScaleLinesWithShape As Boolean = False], [UseWorldCoordinates As Boolean = False], [FillScale As Double], [LineScale As Double], [FillAngle As Double], [FillSkew As Double]) As HatchFill