Sort order by check a list box [RESOLVED]

[AM LOPEZ]

Hi vbf:

I have a list box with the check box option active, and I want to sort order the items alphabetically and by check box activated, like the References menu into VB application, or just show the items that has the check box activated.

Thanks in advance and regards.

[MartinLiss]

Here's a pretty easy way to do it. Add two hidden listboxes to your form called lstChecked and lstNotChecked. Set the style of lstChecked to sorted. Then if List1 is your current listbox...

Dim intIndex As Integer
    
    For intIndex = 0 To List1.ListCount - 1
        If List1.Selected(intIndex) Then
            lstChecked.AddItem List1.List(intIndex)
        Else
            lstNotChecked.AddItem List1.List(intIndex)
        End If
    Next
    
    List1.Clear
    
    For intIndex = 0 To lstChecked.ListCount - 1
        List1.AddItem lstChecked.List(intIndex)
        List1.Selected(intIndex) = True
    Next
    
    For intIndex = 0 To lstNotChecked.ListCount - 1
        List1.AddItem lstNotChecked.List(intIndex)
    Next

[AM LOPEZ]

Your rigth, it's an easy way to sort the items, I' try to find something like this but I loose my mind, thanks a lot MartinLiss, you solved my problem.

Regards!!!