1、PrivateSub Command1_Click() '上移Dim N As LongN = List1.ListIndex '记录当前序号if n=-1 then exit sub '加这句，判断是否选择
2、If N - 1 > -1 Then '挢旗扦渌;判断是否最前List1.AddItem List1.Text, N - 1 '在当前项的上一条记录前插入一条记录List1.RemoveItem N + 1 '删除原记录
3、List1.Selected(N - 1) = True '选中移动后记录ElseMsgBox "已经是最前"EndIfEndSub
4、PrivateSub Command2_Click() '下移Dim N As LongN = List1.ListIndexIf N + 1 < List1.ListCount Then
5、List1.AddItem List1.Text, N + 2List1.RemoveItem NList1.Selected(N + 1) = TrueElseMsgBox "已经是最后"EndIfEnd Sub
