كيف استطيع ان اغير لون Row في ListView

Private Sub AltLVBackground(lvList As ListView

ByVal BackColorOne As OLE_COLOR, _

ByVal BackColorTwo As OLE_COLOR)

Dim lH As Long

Dim lSM As Byte

Dim picAlt As PictureBox

With lvList

If .View = lvwReport And .ListItems.Count Then

Set picAlt = Me.Controls.Add("VB.PictureBox", "picAlt")

lSM = .Parent.ScaleMode

.Parent.ScaleMode = vbTwips

.PictureAlignment = lvwTile

lH = .ListItems(1).Height

With picAlt

.BackColor = BackColorOne

.AutoRedraw = True

.Height = lH * 2

.BorderStyle = 0

.Width = 10 * Screen.TwipsPerPixelX

picAlt.Line (0, lH)-(.ScaleWidth, lH * 2), BackColorTwo, BF

Set lvList.Picture = .Image

End With

Set picAlt = Nothing

Me.Controls.Remove "picAlt"

lvList.Parent.ScaleMode = lSM

End If

End With

End Sub

Private Sub Form_Load()

AltLVBackground lvList, vbWhite, &HC0FFFF

End Sub

تفضل اخى جرب هذا الكود مع ملاحظة تغيير اسم listview الى lvlist