vb 修改listview某行某列的内容，非单击

Question

listview第一列是数值排列，如
1
2
3
.
.
.
一直到结尾。如果删除了某一行就得重新排列，所以我的想法是先获取总行数，然后循环修改第一列的内容..
但是不晓得修改命令是怎么写的，当然如果大侠你有更好的办法麻烦说下。目的就是重新排列第一列的数值.
说白了就是把第一列按照数字往下排列。不是增加，而是修改，因为之前已经增加了，后来删除了几行，现在要重新排列顺序。
如一开始的数据是
1 asd dsa sss
2 aaa ddd ggf
3 qqr rrs sss
然后把第二列删除了，现在需要重新排列
1 asd dsa sss
2 qqr rrs sss
成百上千列...

Answer 1

Private Sub Command1_Click()
ListView1.ListItems.Remove 2 '删除其中一项
End Sub

Private Sub Command2_Click() '排序 直接修改第一列的值
For i = 1 To ListView1.ListItems.Count
ListView1.ListItems(i).Text = i
Next
End Sub

Private Sub Form_load()
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , "", "第一列"
ListView1.ColumnHeaders.Add , "", "第二列"
ListView1.ColumnHeaders.Add , "", "第三列"
Dim itmX As ListItem
For i = 1 To 5
Set itmX = ListView1.ListItems.Add(i, "", i)
Next
End Sub

Answer 2

你说得有点不明白。排序的号可以点击删除一行以后，执行以下动作：

ListView1.Sorted = True
ListView1.SortKey = ListView.ColumnHeaders(0).Index ‘这里的0是列，要根据实际情况
ListView1.SortOrder = lvwAscending ’这里选择升序，你可以改成降序lvwDescending ，也可以改成点一下升序，再点一下降序

Answer 3

既然原先有排序，无论你删除哪几个，顺序是不变的，根本不需要重新排序