Reverse Listbox Items

Tutorials

Reverse the items in a listbox using the function below. lst.Sorted=False disables the autosort function.

[code]

Sub reverselistbox(ByVal lst As ListBox)

lst.Sorted =

False

lst.Update()For Each item As String In lst.ItemsNext

lst.Items.Clear()

lst.Items.Add(myLBitems(i))

For i As Integer = myLBitems.Count - 1 To 0 Step -1Next

End Sub

[/code]

myLBitems.Add(item)

< Prev		Next >