有关listview控件的问题？

Question

比如listview控件中有两条项目，1和2
如何快速地把1和2 的位置对换，就是1的位置变成2的位置，2的位置在1原来的位置上。

Answer 1

'先删除第二条,再将它插入到第1Private Sub Command1_Click()
Dim str As String
str = List1.List(1)
List1.RemoveItem 1
List1.AddItem str, 0
End SubPrivate Sub Form_Load()
List1.AddItem "1"
List1.AddItem "2"
End Sub

Answer 2

baoaya(点头)说的就是这个意思吧～
不行么？Private Sub Form_Load()
    Dim i As Integer
    
    For i = 1 To 9
        List1.AddItem i
    Next
End SubPrivate Sub Form_Click()
    Dim tS As String
    
    With List1
        tS = .List(1)
        .List(1) = .List(2)
        .List(2) = tS
    End With
End Sub