Private Sub MoveItem(ByVal moveDown As Boolean)

If lstList.SelectedItems.Count = 0 Then Exit Sub



'-- Establish Locals

Dim item As ListViewItem

Dim index As Integer = lstList.SelectedIndices(0)



'-- Determine which way to move the item

If moveDown Then

'-- See if a move down is possible

If index = lstList.Items.Count - 1 Then Exit Sub



'-- Extract the item from the list

item = lstList.Items(index)

lstList.Items.Remove(item)



'-- Insert the item

lstList.Items.Insert(index + 1, item)

Else

'-- See if the item can be moved up

If lstList.SelectedIndices(0) = 0 Then Exit Sub



'-- Extract the item from the list

item = lstList.Items(index)

lstList.Items.Remove(item)



'-- Insert the item

lstList.Items.Insert(index - 1, item)

End If



'-- May need to update some toolbar items, menus, etc. after the change is made. Do that now.

SetMenuItems()

End Sub