if not combobox1.items.contains(valeur) then combobox1.items.add(valeur)
Combobox1.Sorted = True
Option Strict On
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim valeurs As New List(Of String) From {"banane", "citron", "ananas", "navet"}
valeurs.Sort(New Tri)
ComboBox1.Items.AddRange(valeurs.ToArray)
End Sub
End Class
Public Class Tri
Implements IComparer(Of String)
Public Function Compare(ByVal x As String, ByVal y As String) As Integer Implements System.Collections.Generic.IComparer(Of String).Compare
If x < y Then
Return 1
ElseIf x = y Then
Return 0
Else
Return -1
End If
End Function
End Class