24 | 05 | 2017

Reverse Listbox Items

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

 

 

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 AsInteger = myLBitems.Count - 1 To 0 Step -1

myLBitems.Add(item)

Next

Next End Sub
Login

Sign up now and upload your code to the website.

Help us to continue.....
Statistics
Articles View Hits
2258966
Latest Articles