' Move an item of a listbox to another index'' If FROMINDEX = -1 then it moves the current highlighted itemSub MoveListboxItem(ctrl As ListBox, ByVal FromIndex As Long, _ ByVal ToIndex As Long) Dim sText As String, lItemData As Long ' provide a default If FromIndex < 0 Then FromIndex = ctrl.ListIndex ' exit if argument not in range If ToIndex < 0 Or ToIndex > ctrl.ListCount - 1 Then Exit Sub With ctrl ' save text and data of the current item sText = .List(FromIndex) lItemData = .ItemData(FromIndex) ' remove the item .RemoveItem FromIndex ' add the item .AddItem sText, ToIndex .ItemData(.NewIndex) = lItemData ' select the new item .ListIndex = ToIndex End WithEnd Sub


Apple’s Search Engine Disruptor Brewing?
As the fourth quarter of 2023 kicks off, the technology sphere is abuzz with assorted news and advancements. Global stocks exhibit mixed results, whereas cryptocurrency