title: Item transfer between Listboxes Last Row Issue
body: <p>I have a listbox with values that I want to move to another listbox so the user can sort the items. When the last item is selected, it only moves that item and erases the values above it. How can I have it function like the other items in the list?</p>
  
  <p>FYI, it is a single item selection, if that changes anything</p>
  
  <pre><code>Option Explicit
  Option Base 1
  
  Private Sub Add_Click()
   Dim x As Integer, count As Integer
    count = Me.Unsorted.ListCount
      For x = 0 To count
          If Me.Unsorted.Selected(x) = True Then
              Me.Sorted.AddItem Me.Unsorted.List(x)
          End If
      Next x
  
      For x = count To 0 Step -1
          If Me.Unsorted.Selected(x) = True Then
              Me.Unsorted.RemoveItem x
          End If
      Next x
  
  End Sub
  </code></pre>