[أسامة]

الكود كامل اذا احتاجة احد الاخوة

كود :

   Private Sub ListView1_DrawItem(sender As Object, e As DrawListViewItemEventArgs) Handles ListView1.DrawItem
       e.DrawBackground()
       If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
           e.Graphics.FillRectangle(Brushes.Black, e.Bounds)
       End If
       e.DrawFocusRectangle()
   End Sub

   Private Sub ListView1_DrawColumnHeader(sender As Object, e As DrawListViewColumnHeaderEventArgs) Handles ListView1.DrawColumnHeader
       e.DrawDefault = True
       e.DrawBackground()
   End Sub

   Private Sub ListView1_DrawSubItem(sender As Object, e As DrawListViewSubItemEventArgs) Handles ListView1.DrawSubItem
       e.DrawText(TextFormatFlags.Default)
   End Sub