Public ReadOnly Property TabPath As GraphicsPath

Dim instance As PaintTabStripTabEventArgs
Dim value As GraphicsPath
 
value = instance.TabPath

public GraphicsPath TabPath {get;}

private void fpspread1PaintTabStripButton(object sender, FarPoint.Win.Spread.PaintTabStripTabEventArgs e) 
{ 
      if (e.TabIndex = 0) { 
            e.Cancel = true;
            RectangleF r = e.TabPath.GetBounds(); 
            e.Graphics.FillRectangle(Brushes.Crimson, r.X, r.Y, r.Width, r.Height); 
      } 
}

Private Sub FpSpreadPaintTabStripTab(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.PaintTabStripTabEventArgs) Handles
FpSpread1.PaintTabStripTab

      If e.TabIndex = 0 Then
            e.Cancel = True
            Dim r As RectangleF
            r = e.TabPath.GetBounds()
            e.Graphics.FillRectangle(Brushes.Crimson, r.X, r.Y, r.Width, r.Height)
      End If