[أسامة]

اريد تغير ColumnHeader Color

كود :

   Private Sub ListView1_DrawColumnHeader(sender As Object, e As DrawListViewColumnHeaderEventArgs) Handles ListView1.DrawColumnHeader
       e.Graphics.FillRectangle(Brushes.Orange, e.Bounds)
       Dim x As Integer = e.Bounds.Right - 2
       Dim y1 As Integer = e.Bounds.Top
       Dim y2 As Integer = e.Bounds.Bottom
       e.DrawText(TextFormatFlags.EndEllipsis Or TextFormatFlags.Left Or TextFormatFlags.SingleLine Or TextFormatFlags.VerticalCenter)
       e.Graphics.DrawLine(Pens.Black, x, y1, x, y2)
       e.Graphics.DrawLine(Pens.LightGray, x + 1, y1, x + 1, y2)
       e.DrawDefault = False
       e.DrawBackground()
   End Sub