试验中遇到的最后一个问题

在list框中 添加一个上翻 一个下翻按钮
当摁下上翻 下翻的时候
可以实现条目的上翻下翻
可以循环的那种
现在下翻已经解决
但是上翻到第一个的时候
再次摁下上翻 就变成倒数第二个了
If List1.ListIndex = 0 Then
List1.ListIndex = List1.ListCount - 1
End If
List1.ListIndex = List1.ListIndex - 1