FIX: Drag/Drop of ListView Control Fails

MORE INFORMATION

Steps to Reproduce Behavior

1. Create a new Standard EXE Project.
2. Place two ListView controls on the form (ListView1 and ListView2).
3. Place the following code into the General Declarations section of the form:

       Private Sub Form_Load()
           Dim Li As ListItem
           Set Li = ListView1.ListItems.Add(, , "hello")
           Set Li = ListView1.ListItems.Add(, , "hello2")
           Set Li = ListView1.ListItems.Add(, , "hello3")
       End Sub
   
       Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, _
       x As Single, y As Single)
          Set ListView1.SelectedItem = ListView1.HitTest(x, y)
          ' In the following line any ICO file will do
          ListView1.DragIcon = LoadPicture _
          ("C:\program files\microsoft visual basic\samples\calc\calc.ico")
          ListView1.Drag vbBeginDrag
       End Sub
   
       Private Sub ListView2_DragDrop(Source As Control, x As Single, _
       y As Single)
          MsgBox "Hello"
          Dim li2 As ListItem
          Set li2 = ListView2.ListItems.Add(, , Source.SelectedItem.Text)
       End Sub
   
   						

4. Run the form and attempt to drag "hello" from ListView1 to ListView2. Note that the drag icon disappears when the item is moved.