一个关于 ListView 的问题, 怎样实现一个记录的移动

Question

选中listview中的某个记录，让然后单击某个按钮以上移一个记录。

Answer 1

Private Sub Command1_Click()
    On Error Resume Next
    With ListView1
        .ListItems(.SelectedItem.Index - 1).Selected = True
    End With
End Sub

Answer 2

这里subitem的index属性是不是不可改变的，那样的话就没办法实现移动了