[Cisteriaso]

Thanks a lot, looks really good, great colours.

[TheBarret]

Lol closed. Not sure why, but I'm glad it happened.

Yep, but this just 1 of the 1000's that are still here. Keep doing what your doing Lazy, heck i might even pay for it if this works the way you did now. 🤫

[iMeetYourMum]

Awesome tabcontrol! Good work OP! I think i use it soon C:

[Shoot]

thanks for this

oh and it is very clean and professional

[Madara-Uchiha]

Nice, looks similar to the TabControl of Imminent Monitor.

[Only3]

Nice, looks similar to the TabControl of Imminent Monitor.

u mean aeon tabcontrol https://hackforums.net/showthread.php?tid=2541240

anyway why u use bmp (Graphics.FromImage)

Code

Public Class Tb
    Inherits TabControl

    Sub New()
      SetStyle(ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.Opaque Or ControlStyles.ResizeRedraw, True)
      'SetStyle(ControlStyles.Selectable, False)
      Dock = DockStyle.Fill
      ItemSize = New Size(120, 25)
      SizeMode = TabSizeMode.Fixed
      Alignment = TabAlignment.Left
      DrawMode = TabDrawMode.OwnerDrawFixed
    End Sub

    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
      Dim G As Graphics = e.Graphics
      G.Clear(Color.FromArgb(71, 80, 100))
      'G.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
      For i = 0 To TabCount - 1
      Dim TabRectangle As Rectangle = GetTabRect(i)
      If i = SelectedIndex Then
      G.FillRectangle(New SolidBrush(Color.FromArgb(95, 105, 127)), TabRectangle)
      G.FillRectangle(Brushes.DeepSkyBlue, New Rectangle(TabRectangle.Location.X + 2, TabRectangle.Location.Y + 2, 3, TabRectangle.Height - 4))
      Else
      G.FillRectangle(New SolidBrush(Color.FromArgb(71, 80, 100)), TabRectangle)
      G.FillRectangle(New SolidBrush(Color.FromArgb(90, 102, 127)), New Rectangle(TabRectangle.Location.X + 2, TabRectangle.Location.Y + 2, 3, TabRectangle.Height - 4))
      End If
      G.DrawString(TabPages(i).Text, Font, Brushes.White, TabRectangle, New StringFormat With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Center})
      Next
      G.Dispose()
      MyBase.OnPaint(e)
    End Sub
End Class

[Only3]

No I'm pretty sure he meant Imminent Monitor.

😁 u should open ur mind from time to time 😏

[Only3]

Well you corrected him on something that was correct.

you are right 👍 but isnt it obvious 😊 so what was my point lazy ? 😁

[DopeDatabase]

Nice Release Love it! Thanks for This!