' Make a ListView row.
Private Sub ListViewMakeRow(ByVal lvw As ListView, ByVal _
    item_title As String, ByVal ParamArray subitem_titles() _
    As String)
    ' Make the item.
    Dim new_item As ListViewItem = lvw.Items.Add(item_title)

    ' Make the sub-items.
    For i As Integer = subitem_titles.GetLowerBound(0) To _
        subitem_titles.GetUpperBound(0)
        new_item.SubItems.Add(subitem_titles(i))
    Next i
End Sub

ListViewMakeRow(lvwBooks, _
    "Ready-to-Run Visual Basic Algorithms", _
    "http://www.vb-helper.com/vba.htm", _
    "0-471-24268-3", "http://www.vb-helper.com/vba.jpg", _
    "395", "1998")
ListViewMakeRow(lvwBooks, _
    "Visual Basic Graphics Programming", _
    "http://www.vb-helper.com/vbgp.htm", _
    "0-472-35599-2", _
    "http://www.vb-helper.com/vbgp.jpg", _
    "712", "2000")
...