Dim aantal As Integer = ListBox1.Items.Count() - 1
Dim i As Integer = 0
Dim myArray(aantal) As String
For Each lbItem As Object In ListBox1.Items
myArray(i) = lbItem.ToString()
i = i + 1
Next
Array.Sort(myArray)
ListBox1.Items.Clear()
For Each item As String In myArray
ListBox1.Items.Add(item)
Next