.NET +++++ NETHEME - The Online HF Theme Repo +++++

Code
Public Class InfluenceTabControl : Inherits TabControl

#Region " Control Help - Properties & Flicker Control "

    Private DrawGradientBrush, DrawGradientBrush2 As LinearGradientBrush

    Private _TabBrColor As Color

    Public Property TabBorderColor() As Color

      Get

      Return _TabBrColor

      End Get

      Set(ByVal v As Color)

      _TabBrColor = v

      Invalidate()

      End Set

    End Property

    Private _ControlBColor As Color

    Public Property TabTextColor() As Color

      Get

      Return _ControlBColor

      End Get

      Set(ByVal v As Color)

      _ControlBColor = v

      Invalidate()

      End Set

    End Property

    Protected Overrides Sub OnPaintBackground(ByVal pevent As System.Windows.Forms.PaintEventArgs)

    End Sub

#End Region

    Sub New()

      MyBase.New()

      SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw Or ControlStyles.UserPaint Or ControlStyles.DoubleBuffer, True)

      TabBorderColor = Color.White

      TabTextColor = Color.White

    End Sub



    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)

      Dim g As Graphics = e.Graphics

      MyBase.OnPaint(e)

      Dim d As New Draw

      g.Clear(Color.FromArgb(20, 20, 20))

      g.SmoothingMode = SmoothingMode.HighQuality



      '| Main shape

      Dim OuterMainRect As New Rectangle(0, 0, Width - 1, Height - 1)

      Dim InnerMainRect As New Rectangle(1, 1, Width - 3, Height - 3)

      Dim TopGradientPath As GraphicsPath = d.RoundRect(New Rectangle(1, 1, Width - 3, 20), 4)

      Dim TopGradientBrush As New LinearGradientBrush(New Point(0, 0), New Point(0, 22), Color.FromArgb(35, 35, 35), Color.Transparent)

      g.FillPath(TopGradientBrush, TopGradientPath)

      g.DrawPath(Pens.Black, d.RoundRect(OuterMainRect, 4))

      g.DrawPath(New Pen(Color.FromArgb(40, Color.White)), d.RoundRect(InnerMainRect, 4))



      Dim TabIndexBounds As Rectangle

      Dim TextBrush As New SolidBrush(Color.Empty)

      For TabIndex As Integer = 0 To Me.TabCount - 1

      TabIndexBounds = Me.GetTabRect(TabIndex)



      If TabIndex = SelectedIndex Then

      '|Filling the selected index

      Dim SmallIndexBounds As New Rectangle(TabIndexBounds.X + 2, TabIndexBounds.Y + 2, TabIndexBounds.Width - 4, TabIndexBounds.Height - 4)

      Dim TabPath As GraphicsPath = d.RoundRect(SmallIndexBounds, 3)

      FillDualGradPath(g, Color.FromArgb(55, 55, 55), Color.FromArgb(40, 40, 40), SmallIndexBounds, TabPath)



      '|Adding borders



      Dim SmallerIndexBounds As New Rectangle(TabIndexBounds.X + 2, TabIndexBounds.Y + 3, TabIndexBounds.Width - 4, TabIndexBounds.Height - 6)

      Dim TabHighlightPath As GraphicsPath = d.RoundRect(SmallerIndexBounds, 3)

      g.DrawPath(New Pen(Color.FromArgb(25, Color.White)), TabHighlightPath)

      g.DrawPath(Pens.Black, TabPath)

      End If

      Dim SF As New StringFormat : SF.LineAlignment = StringAlignment.Center : SF.Alignment = StringAlignment.Center

      If Me.SelectedIndex = TabIndex Then : TextBrush.Color = TabTextColor

      Else : TextBrush.Color = Color.DimGray : End If

      Dim TextRectangle As New Rectangle(TabIndexBounds.X, TabIndexBounds.Y, TabIndexBounds.Width, TabIndexBounds.Height + 3)

      g.DrawString(Me.TabPages(TabIndex).Text, Me.Font, TextBrush, TextRectangle, SF)

      Try : Me.TabPages(TabIndex).BackColor = Color.FromArgb(20, 20, 20) : Catch : End Try

      Next

      Try

      For Each TbPage As TabPage In Me.TabPages : TbPage.BorderStyle = BorderStyle.None : Next

      Catch : End Try

    End Sub



    Public Sub FillDualGradPath(ByVal g As Graphics, ByVal Col1 As Color, ByVal Col2 As Color, ByVal rect As Rectangle, ByVal gp As GraphicsPath)

      Dim stored As SmoothingMode = g.SmoothingMode

      Dim Blend As New ColorBlend

      g.SmoothingMode = SmoothingMode.HighQuality

      Dim PathGradient As New LinearGradientBrush(New Point(rect.X, rect.Y), New Point(rect.X, rect.Y + rect.Height), Color.Black, Color.Black)

      Blend.Positions = {0, 1 / 2, 1}

      Blend.Colors = {Col1, Col2, Col1}

      PathGradient.InterpolationColors = Blend

      PathGradient.RotateTransform(0)

      g.FillPath(PathGradient, gp)

      g.SmoothingMode = stored

    End Sub

End Class