按中文字母排序--源代码

        Dim stringArray As Array = Array.CreateInstance(GetType([String]), ComboBox2.Items.Count)
        Dim num As Integer
        Dim numEnd As Integer
        numEnd = ComboBox2.Items.Count - 1
        For num = 0 To numEnd
            stringArray.SetValue(ComboBox2.Items(num), num)   '将ComboBox2内的数据导入stringArray数组
        Next num
        Thread.CurrentThread.CurrentCulture = New CultureInfo("zh-CN")  '针对特定区域性对数据进行比较和排序,可查MSDN
        Array.Sort(stringArray)   '对一维 Array 对象中的元素进行排序
        ComboBox2.Items.Clear()
        For num = 0 To numEnd
            ComboBox2.Items.Add(stringArray(num))
        Next num