vb list删除选定行后自动跳到下一个

按删除键可以删除选定了那行，再按一下就会出错。怎样让它在删除一行后，跳到下一行呀Private Sub List1_keypress(KeyAscii As Integer)
If KeyAscii = 8 Or KeyAscii = 46 Then
Text1.Text = 2
List1.RemoveItem List1.ListIndex
End If
End Sub

Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 46 And List1.ListIndex > -1 Then
a = List1.ListIndex
List1.RemoveItem List1.ListIndex
If a <> List1.ListCount Then
List1.ListIndex = a
Else
List1.ListIndex = a - 1
End If
End If
End Sub

'删除选中list

for i = 0 to list1.listcount - 1

    if i = list1.listcount then exit for

    if list1.selected(i) then

    text1.text = replace(text1.text, list1.list(i) & vbcrlf, "")  //删除对应text里的行

    list1.remove(i)

    i = i - 1

    end if

next