Public Class Form1
 
    Dim Items() As String = {"E", "X", "P", "L", "O", "R", "E", "R"}
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        ListBox1.Items.Clear()
        ListBox1.Items.AddRange(Items)
        ListBox1.Sorted = True
 
 
    End Sub
 
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim i As Integer = ListBox1.SelectedItems.Count - 1
        While i >= 0
            ListBox1.Items.Remove(ListBox1.SelectedItems(i))
            System.Math.Max(System.Threading.Interlocked.Decrement(i), i + 1)
        End While
 
 
 
    End Sub
End Class