ERRO AO ZEBRAR O LISTVIWER

  

[ô]-------------------------------
[ô] FUNÇÃO PARA ZEBRAR O LISTVIEW
[ô]-------------------------------
Private Function LVZebra(LV As ListView, Pic As PictureBox, Cor1 As Long, Cor2 As Long) As Boolean
    Dim lHght As Long
    Dim lWdth As Long

    LVZebra = False
    
    If LV.View <> lvwReport Then Exit Function
    If LV.ListItems.Count = 0 Then Exit Function
    
    With LV
    .Picture = Nothing
    .Refresh
    .Visible = True
    .PictureAlignment = lvwTile
    lWdth = .Width
    End With
    
    With Pic
    .AutoRedraw = False
    .Picture = Nothing
    .BackColor = vbWhite
    .Height = 1
    .AutoRedraw = True
    .BorderStyle = vbBSNone
    .ScaleMode = vbTwips
    .Top = Me.Top - 10000
    .Width = Screen.Width
    .Visible = False
    .Font = LV.Font
        
    With .Font
    .Bold = LV.Font.Bold
    .Charset = LV.Font.Charset
    .Italic = LV.Font.Italic
    .Name = LV.Font.Name
    .Strikethrough = LV.Font.Strikethrough
    .Underline = LV.Font.Underline
    .Weight = LV.Font.Weight
    .Size = LV.Font.Size
    End With
        
    lHght = LV.ListItems(1).Height
        
    .Height = lHght * 2
    .Width = lWdth
        
    Pic.Line (0, 0)-(lWdth, lHght), Cor1, BF
    Pic.Line (0, lHght)-(lWdth, (lHght * 2)), Cor2, BF
    .AutoSize = True
    .Refresh
        
    End With
    
    LV.Refresh
    LV.Picture = Pic.Image
    LVZebra = True
    
End Function
 

  
Dim Lst As ListItem
Dim RG As Integer

While Not RS.EOF

Set Lst = ListView1.ListItems.Add(, , RS(0) & [Ô][Ô])

For RG = 1 To 8
Lst.SubItems(RG) = RS(RG)
Next RG
RS.MoveNext
Wend

If LVZebra(ListView1, Picture1, &HC0FFC0, &HC0FFFF) = False Then Exit Sub