VB.net listview 如何插入一行

VB.net listview 如何插入一行

也不是很熟悉，将就用吧。
 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        With ListView1
            .Columns.Add("姓名")
            .Columns.Add("年龄")
            .Columns.Add("姓别")
        End With
    End Sub
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Static Index As Integer
        Index += 1
        If ListView1.SelectedIndices.Count > 0 Then '如果有选中则插入
            Dim lItem As System.Windows.Forms.ListViewItem = ListView1.Items.Insert(ListView1.SelectedIndices.Item(0) + 1, "李丫" & Index)
            lItem.SubItems.AddRange(Split("24,女", ","))
        Else '否则添加
            Dim lItem As System.Windows.Forms.ListViewItem = ListView1.Items.Add("李丫" & Index)
            lItem.SubItems.AddRange(Split("24,女", ","))
        End If
    End Sub