[سامي محمد]

أيضا هذه طريقة آخر بالإضافة إلى طريقة الاستاذ إبراهيم

كود :

 Dim Ls As New ArrayList
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ComboBox1.Items.Clear()
        For x As Integer = 0 To Ls.Count - 1
            ComboBox1.Items.Add(Ls(x))
        Next
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ComboBox1.Items.AddRange({"محمد", "أحمد", "باسم", "يارا"})
        Ls.AddRange(ComboBox1.Items)
        Ls.Sort()
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        ComboBox1.Items.Clear()
        For x As Integer = Ls.Count - 1 To 0 Step -1
            ComboBox1.Items.Add(Ls(x))
        Next
    End Sub