Логика выделения значений в ListBox при их удалении

Public Class Form1
 
    Dim IndSel As Integer 'индекс выделенной записи
    Dim ItemsCount As Integer 'количество записей
 
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
 
        If ListBox1.Items.Count > 0 Then ListBox1.SelectedIndex = 0 'автоматически выделяем первую запись
 
    End Sub
 
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        IndSel = ListBox1.SelectedIndex 'запоминаем индекс выделенной записи
        ListBox1.Items.RemoveAt(IndSel) 'удаляем выделенную запись по её индексу
 
        'В связи с изменением списка проверяем аргументы и условия:
 
        ItemsCount = ListBox1.Items.Count 'Считаем количество записей в списке
        If ItemsCount < 1 Then 'Если список опустел,
            Button1.Enabled = False 'блокируем кнопку.
        Else 'Если в списке есть хотя бы одна запись,
            If IndSel < ItemsCount Then 'Если индекс < количества,
                ListBox1.SelectedIndex = IndSel 'выделяем запись с этим индексом.
            ElseIf IndSel = ItemsCount Then 'Если индекс = количеству,
                ListBox1.SelectedIndex = ItemsCount - 1 'выделяем запись, ставшую последней.
            End If
        End If
 
    End Sub
 
End Class