让记录亮条显示

Question

我有一段程序代码目的是想在列表框中选中某条记录删除后，让它的上一条记录亮条显示。但如果删除的是列表框中的第一条记录，就无法执行了，请问怎样修改呢？
If List2.Selected(List2.ListIndex) = True Then
    ss = List2.ListIndex
    List2.RemoveItem List2.ListIndex
    List2.Selected(ss - 1) = True
   End If

Answer 1

If List2.Selected(List2.ListIndex) = True Then
    ss = List2.ListIndex
    List2.RemoveItem ss
    if ss=0 then
        List2.Selected(0) = True
    else
        List2.Selected(ss - 1) = True
    end if
   End If

Answer 2

在If List2.Selected(List2.ListIndex) = True Then前最好加一个
On Error Resume Next
否则当都删除完后会出现错误

Answer 3

List2.Selected(ss - 1) = True
很危险