"Rick Rothstein" <rick_newsgroup@email.com> wrote:
>The following sample (one ListBox on a Form is all that's needed) shows

how to move
>single
>items around the list box (MultiSelect = 0-None); simply click and drag

an item.
>
>Rick
>
>Dim DragIndex As Long
>
>Private Sub Form_Load()
> ' Just load the ListBox up with something
> With List1
> For X = 0 To 30
> .AddItem "Item #" & CStr(X + 1)
> Next
> End With
>End Sub
>
>Private Sub List1_MouseDown(Button As Integer, _
> Shift As Integer, X As Single, Y As Single)
> With List1
> DragIndex = .ListIndex
> End With
>End Sub
>
>Private Sub List1_MouseUp(Button As Integer, _
> Shift As Integer, X As Single, Y As Single)
> With List1
> If DragIndex <> .ListIndex Then
> ListText = .List(DragIndex)
> .RemoveItem DragIndex
> .AddItem ListText, .ListIndex
> .ListIndex = .NewIndex
> End If
> End With
>End Sub
>
>