sub XXXXXXX()
If ListView1.SelectedItems.Count = 0 Then Exit Sub
Dim lstIT As ListViewItem
Dim I As Integer
For Each lviST As ListViewItem In ListView1.SelectedItems
I = lviST.Index
If I > 0 AndAlso Not ListView1.Items(I - 1).Selected Then
lstIT = ListView1.Items(I)
ListView1.Items.RemoveAt(I)
ListView1.Items.Insert(I - 1, lstIT)
End If
Next
end sub
这段代码谁能给我讲一下??
