From: jguarnieri@adelphia.net   
      
   Thanks, I'll give it a try, curious, I don't even see  .ItemData in your   
   code. How does it get moved?   
      
   John G.   
      
      
   "Rick Rothstein"  wrote in message   
   news:vYydnQY6Vbyuaj3fRVn-oQ@comcast.com...   
   > > I need some code to drag items in a list box either up or   
   > > down along with not just the text but with the  itemdata too.   
   > > Can anyone hook me up?   
   >   
   > This may not be as "visual" as you might be looking for (can't be sure   
   > because you didn't say); but the ItemData moves with the item. Here is a   
   > previous post of mine that shows a method for doing that.   
   >   
   > Rick - MVP   
   >   
   > Use this sample project as a guide. Put a ListBox in a new project   
   > (leave its Name as the default of List1). Paste this code into the   
   > Form's code window and Run the project.   
   >   
   > ********START PASTE********   
   > Dim DragIndex As Long   
   >   
   > Private Sub Form_Load()   
   >   ' Just load the ListBox up with something   
   >   With List1   
   >     For X = 0 To 10   
   >       .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 + Abs(Shift = vbShiftMask)   
   >       .ListIndex = .NewIndex   
   >     End If   
   >   End With   
   > End Sub   
   > ********END PASTE********   
   >   
   > Now click on an item and move your cursor to a new spot in the list.   
   > When you release the mouse button, the item will be **inserted at** the   
   > location of the mouse indicator; i.e., all existing items from the drop   
   > point to the end of the list will placed after the item that was dragged   
   > into the new position. This means that you can't drop an item into the   
   > last position. To allow for that, you can press the Shift Key when you   
   > drop the item. Doing that will place the dragged item **after** the   
   > itemt the drop point. The Shift Key action works anywhere in the list,   
   > but its main purpose is to allow an item to be dragged to the last   
   > position.   
   >   
   > There was a somewhat lengthy thread about a year ago in the vb.general n   
   > ewsgroup on the news.devx.com public news server in which someone   
   > offered code that inserted the dragged item **before** if that occurred   
   > at a ListIndex lower in value than where the dragged item came from and   
   > inserted the dragged item **after** otherwise. I found that somewhat   
   > unnatural but others in the thread disagreed (if I recall correctly).   
   > Here is that person's function and my response to his post:   
   >   
   > "Reid Nix"  wrote in message   
   > news:3cb1898f@10.1.10.29...   
   > > ok...but if you simply load a var before the change , it will work   
   > without   
   > > shift.   
   > > try it...this is all the code you need   
   > >   
   > > Dim iFirst As Integer   
   > > Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As   
   > > Single, Y As Single)   
   > > If Button = 2 Then PopupMenu mnuItems   
   > > iFirst = List1.ListIndex   
   > > End Sub   
   > >   
   > > Private Sub List1_MouseUp(Button As Integer, Shift As Integer, X As   
   > Single,   
   > > Y As Single)   
   > > Dim asd As String   
   > > Dim ii As Integer   
   > > ii = List1.ListIndex   
   > > asd = List1.List(iFirst)   
   > > With List1   
   > >     .RemoveItem iFirst   
   > >     .AddItem asd, ii   
   > >     .ListIndex = .NewIndex   
   > > End With   
   > >   
   > > End Sub   
   >   
   > The only problem I have with your solution is the drop works differently   
   > depending on whether the item is dragged up or down the list. If you   
   > drag Item #5 and drop it on Item #10, it is placed **after** Item #10.   
   > Now drag Item #9 and drop it on Item #3, it is placed **before** Item   
   > #3. The location of the dropped item with respect to the item it's   
   > dropped on is different depending on which way the item is dragged.   
   > Think of the (old DOS type) word processor equivalent (where the cursor   
   > highlighted a letter as opposed to being a thin line between   
   > letters)...if I move the cursor so that the letter B is highlighted for   
   > these characters ABC, then if I cursored left in order to highlight the   
   > B, then the new text is inserted **before** the B; but if I had cursored   
   > right to highlight the B, then the new text is inserted **after** the B.   
   > Personally, I find that inconsistent.   
   >   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)