Shouldn't this be:

For i = 0 To ListView1.ListItems.Count - 1