限制列表视图中的行数并添加新列

Question

我正在填充一个列表视图，其中包含来自数据表的记录，我需要将列表视图中的行数限制为5，当记录大于5时，我需要在列表视图中创建一个新列来显示记录......

这就是我填写列表视图的方式：

     Private Sub ShowDataInLvw(ByVal data As DataTable, ByVal lvw As ListView)
    lvw.View = View.Details
    lvw.GridLines = True
    lvw.Columns.Clear()
    lvw.Items.Clear()
    For Each col As DataColumn In data.Columns
        lvw.Columns.Add(col.ToString)
    Next

    For Each row As DataRow In data.Rows
        Dim lst As ListViewItem
        lst = lvw.Items.Add(row(0))
        For i As Integer = 1 To data.Columns.Count - 1
            lst.SubItems.Add(row(i))
        Next
    Next
End Sub

请注意，我的数据表只有1列，我正在使用vb.net 2010

任何帮助？