ListView 写入值的有关问题

ListView 写入值的问题
 Dim data As String = "abc;不知道;顶替;1;77777"

        Dim arrRs As Array = data.Split(";")
        Dim Rs As String = ""
        Dim lvi As New ListViewItem

        For Each Rs In arrRs

            lvi.Text = Rs(0)
            lvi.SubItems.Add(Rs(1))
            lvi.SubItems.Add(Rs(2))
            lvi.SubItems.Add(Rs(3))
            lvi.SubItems.Add(Rs(4))

            ListView2.Items.Add(lvi)

        Next

这个杂个写入进去值？
[解决办法]
来接个分,