Trier une combobox avec des dates

Bonjour, comment fait-on pour trier une combobox avec des dates, merci

Code:

1
2
3
4
5
6
7
8
9
10
 
Dim dates As New List(Of Date)
        For i = 0 To ComboBox1.Items.Count - 1
            dates.Add(Date.Parse(ComboBox1.Items(i)))
        Next
        ComboBox1.Items.Clear()
        dates.Sort()
        For i = 0 To dates.Count - 1
            ComboBox1.Items.Add(dates(i).ToShortDateString)
        Next

Tu remplaces ComboBox1 par le nom de la boîte, tu fais cette fois à chaque fois que tu ajoutes un élement et le tour est joué.

merci bien