• Home
 · 
• Miscellaneous
 · 
• This function will sort a listbox. Usage (suppose your ListBox is named List1) : Call sort(List1) T

This function will sort a listbox. Usage (suppose your ListBox is named List1) : Call sort(List1) T

This function will sort a listbox. Usage (suppose your ListBox is named List1) : Call sort(List1) That call would sort your listbox named

Rate This function will sort a listbox. Usage (suppose your ListBox is named List1) : Call sort(List1) T

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

 'Sorting function by CooKiEz
 'Please gimme credit if you gonna use this =)
 '
 '~ CooKiEz (@usa.com) (.net)

 'Usage:
 'Call sort(List1)

 Dim a As String
 Dim z As Integer
  
 For z = 0 To x.ListCount - 2
  If x.List(z) > x.List(z + 1) Then
   a = x.List(z)
   x.List(z) = x.List(z + 1)
   x.List(z + 1) = a
   z = 0
  End If
  DoEvents
 Next z
  
End Function