Protected Overrides Sub onDrawItem(e As DrawItemEventArgs)
Dim r As Graphics = e.Graphics
Dim endpagerect As Rectangle = Me.GetTabRect(Me.TabPages.Count - 1)
Dim titlerect As Rectangle = Me.GetTabRect(e.Index)
Dim headerbackrect As Rectangle = Rectangle.Empty
headerbackrect = New Rectangle(New Point(endpagerect.X + endpagerect.Width, endpagerect.Y), New Size(Me.Width - endpagerect.X - endpagerect.Width, endpagerect.Height))
Dim b As Brush = New SolidBrush(Color.Gray)
r.FillRectangle(b, headerbackrect)
End Sub

我想改变tabcontrol中除page以外的颜色，可是执行以后却没有反应，程序哪里出问题了吗？