VB6 achieves the color of each row interval in listview

Create a new project, add a listview control and a picture control, and enter the followingCode:
Option explicit

Private sub form_load ()
Dim I as long
'Properties Of The ListBox and data preparation
Listview1.view = lvwreport
Listview1.columnheaders. add, "This is just a simple example"
Listview1.columnheaders (1). width = 3000
For I = 1 to 33
Listview1.listitems. Add, "this is item number" & CSTR (I)
Next

'Image control attributes
Picture1.borderstyle = vbbsnone
Picture1.autoredraw = true
'Picture1. Visible = false

'Height is the list of two rows
Picture1.width = listview1.width
Picture1.height = listview1.listitems (1). Height * 2

'Draw the interval color of the two rows
Picture1.scalemode = vbuser
Picture1.scaleheight = 2
Picture1.scalewidth = 1
Picture1.line (0, 0)-(1, 1), vbwhite, BF
Picture1.line (0, 1)-(1, 2), RGB (227,241,226), BF

'The most important thing
Listview1.picturealignment = lvwtile
Listview1.picture = picture1.image
End sub

It can be inferred that other special images can be used in listview.