如何在ListView中做出这个效果 一个ListView两个Button按钮(一个按钮写向上,一个按钮写向下) 按向上按钮,ListView中的选项向上串,按向下按钮,ListView中的选项向下串

我很菜,能帮我写出来吗?谢谢

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 这段代码谁能给我讲一下??