Sliding TabControl and DotNetBar

I have got to say as a VB coder this has got to be the nicest thing i have ever seen on vb




I am going to share as i think everyone will love and want to use

Code:

Code:

Class GrayTabControl
    Inherits TabControlDesigner
    Private C1, C2, C3, C4, C5, C6 As Color
    Sub New()
	    C1 = Color.FromArgb(103, 103, 103) 'Panel Color
	    C2 = Color.FromArgb(81, 81, 81)
	    C3 = Color.FromArgb(50, 50, 50)
	    C4 = Color.FromArgb(120, 120, 120)
	    C5 = Color.FromArgb(150, 150, 150)
	    C6 = Color.FromArgb(50, Color.Black)
	    Alignment = TabAlignment.Left
	    ItemSize = New Size(44, 136)
	    SizeMode = TabSizeMode.Fixed
	    ItemSize = New Size(40, 110)
	    Font = New Font("Verdana", 8S)
	    PanelColor = C1
	    For I As Integer = 0 To TabPages.Count - 1
		    TabPages(I).BackColor = Color.WhiteSmoke
	    Next
    End Sub
    Protected Overrides Sub TabPaint(ByVal e As Integer)
	    Dim T = TabPages(e).Text
	    Dim R = GetTabRect(e)
	    Dim Temp = New Rectangle(R.X + 2, R.Y + 5, 110, 35)
	    If SelectedIndex = e Then
		    Try : TabPages(e).BackColor = Color.WhiteSmoke : Catch : End Try
		    G.FillRectangle(ToBrush(C2), Temp)
		    G.DrawRectangle(ToPen(C3), Temp)
		    Dim X, Y As Integer
		    X = Temp.Right
		    Y = Temp.Y + Temp.Height / 2
		    Dim P As Point() = {New Point(X, Y - 5), New Point(X, Y + 5), New Point(X - 5, Y)}
		    G.FillPolygon(Brushes.WhiteSmoke, P)
	    ElseIf State = MouseState.Over AndAlso Temp.Contains(Coordinates) Then
		    G.FillRectangle(ToBrush(C4), Temp)
		    G.DrawRectangle(ToPen(C5), Temp)
	    End If
	    G.DrawString(T, Font, Brushes.Black, Center(T, Font, Temp, 0, -1))
	    G.DrawString(T, Font, Brushes.White, Center(T, Font, Temp))
    End Sub
End Class

Please Rep + Thanks If you liked

Thanks Jet2020