codice:
Dim lvi As New ListViewItem("item1")
Dim arr As Array()  = { "item2", "item3", "item4", "item5" }
For Each item As String in Arr
 lvi.SubItems.Add(item)
Next
ListView1.Items.Add(lvi)