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