Move checked items to top of listbox. (Resolved)

[rdcody]

Hey All,

Let's say I have a listbox (style = 1 - checkbox) with the
following code...

Private Sub Form_Load()
    List1.AddItem "apple", (0)
    List1.AddItem "orange", (1)
    List1.AddItem "banana", (2)
    List1.AddItem "grape", (3)
    List1.AddItem "lime", (4)
    List1.AddItem "lemon", (5)
End Sub

Now, let's say I select (check) three of the items in the listbox.
Can someone please tell me how I can move those three items
to the top of the list, when I click a button.

I kind of figured that I will need to loop through the list, but I
can't seem to get anything to work.

Thanks in advance for any help,
Ron