sort a listbox

[faf]

Hi,
How to sort a listbox witout code?
Is exists a method for that?
Thanks

[Serge]

You can change the Sorted property to True in design time.

[HeSaidJoe]

'unfortunately it won't sort numerics properly
'
'example being.

Private Sub Form_Load()
    List1.AddItem 5
    List1.AddItem 5001
    List1.AddItem 50
    List1.AddItem 111
    List1.AddItem 11
    List1.AddItem 10001
    List1.AddItem 333
    List1.AddItem 11101

End Sub

[Serge]

Not a problem:

Public Sub SortListNumberic(p_List As ListBox)
    Dim i
    Dim j
    Dim lngTemp As Long
     
    For i = p_List.ListCount - 1 To 0 Step -1
        For j = 1 To i
            If Val(p_List.List(j - 1)) > Val(p_List.List(j)) Then
                lngTemp = p_List.List(j - 1)
                p_List.List(j - 1) = p_List.List(j)
                p_List.List(j) = lngTemp
            End If
        Next
    Next
End Sub


Private Sub Command2_Click()
    Call SortListNumberic(List1)
End Sub


Private Sub Form_Load()
    List1.AddItem 5
    List1.AddItem 5001
    List1.AddItem 50
    List1.AddItem 111
    List1.AddItem 11
    List1.AddItem 10001
    List1.AddItem 333
    List1.AddItem 11101
End Sub

[faf]

THANKS FOR YOUR HELP!!!!!