'排序
    Private Sub SortListBox(ByVal olistbox As ListBox)
        Dim listValue(olistbox.Items.Count - 1) As String
        Dim Item As Object
        Dim i As Integer = 0
        For Each Item In Me.ListBox1.Items
            listValue(i) = Item.Text.Trim
            i = i + 1
        Next
        Array.Sort(listValue)
        Me.ListBox1.Items.Clear()
        For j As Integer = 0 To listValue.Length - 1
            Me.ListBox1.Items.Add(listValue(j))
        Next
    End Sub

发表评论 - 不要忘了输入验证码哦！
作者：	用户：  密码：   注册？ 验证：  防止恶意留言请输入问题答案：2*8=?
评论： 禁止表情 禁止UBB 禁止图片 识别链接 识别关键字	表  情