Filas con color en un Listview

[winexim]

Es el numero del renglon ejemplo

Private Sub Button1_Click (ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim i as Integer
Dim Clr as System.Drawing.Color

For i=0 to 100
ListView1.Items.Add("Item " & i)
ListView1.Items.Item(i).ForeColor = Clr.Red
ListView1.Items(i).SubItems.Add("SubItem " & i)
Next
End Sub