Como zebrar uma ListView

Olá, colegas. Procurei tanto, tanto um exemplo de como zebrar uma ListView e depois de procurar exaustivamente, encontrei um exemplo que serviu certinho para o que eu queria, e por isso resolvi compartilhar com vocês. É simples e com pouco código, fica muito legal. Tá aí:

Private Sub AltLVBackground(lv As ListView, _
    ByVal BackColorOne As OLE_COLOR, _
    ByVal BackColorTwo As OLE_COLOR)

    Dim lSM     As Byte
    Dim picAlt  As PictureBox
        With lv
            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 lv.Picture = .Image
                End With
                Set picAlt = Nothing
                Me.Controls.Remove "picAlt"
                lv.Parent.ScaleMode = lSM
            End If
        End With
End Sub

Exemplo:
Para utitilizar: AltLVBackground MyListview, vbWhite, vbRed