For i = 1 To 90
Dim itm As ListViewItem = ListView1.Items.Add(i)

Next