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 lbItem As Object = ListBox1.SelectedItem
 
        If lbItem Is Nothing Then
            MessageBox.Show("Vor dem l?en einen Eintrag markieren...", "Info")
        Else
            ListBox1.Items.Remove(lbItem)
            ReDim Items(ListBox1.Items.Count - 1)
            ListBox1.Items.CopyTo(Items, 0)
        End If
    End Sub
End Class