PRB: DragDrop with ListView Control Fails in MouseMove Event

MORE INFORMATION

Steps to Reproduce Behavior

1. Start with a Visual Basic form (Form1) and add four Command Buttons and two ListView controls.
2. Place the following code in the General Declarations section of Form1:

         Option Explicit
   
         Private Sub Command1_Click()
             ListView1.View = lvwIcon
         End Sub
   
         Private Sub Command2_Click()
             ListView1.View = lvwSmallIcon
         End Sub
   
         Private Sub Command3_Click()
             ListView1.View = lvwList
         End Sub
   
         Private Sub Command4_Click()
             ListView1.View = lvwReport
         End Sub
   
         Private Sub Form_Load()
             Dim Li As ListItem
             Dim colX As ColumnHeader
   
             Set colX = ListView1.ColumnHeaders.Add()
             colX.Text = "Field "
             colX.Width = ListView1.Width
   
             Set Li = ListView1.ListItems.Add(, , "hello")
             Set Li = ListView1.ListItems.Add(, , "hello2")
             Set Li = ListView1.ListItems.Add(, , "hello3")
   
             Command1.Caption = "lvwIcon"
             Command2.Caption = "lvwSmallIcon"
             Command3.Caption = "lvwList"
             Command4.Caption = "lvwReport"
         End Sub
   
         Private Sub ListView1_MouseMove(Button As Integer, _
                 Shift As Integer, x As Single, y As Single)
   
         If Button = vbLeftButton Then
            Set ListView1.SelectedItem = ListView1.HitTest(x, y)
            ' In the following line any ICO file will do
            ListView1.DragIcon = LoadPicture( _
                 "C:\program files\devstudio\vb\samples\pguide\calc\calc.ico")
            ListView1.Drag vbBeginDrag
         End If
         End Sub
   
         Private Sub ListView2_DragDrop(Source As Control, x As Single, _
                 y As Single)
            Dim li2 As ListItem
   
            MsgBox "Hello"
            Set li2 = ListView2.ListItems.Add(, , Source.SelectedItem.Text)
         End Sub
   
   						

3. Run the program by pressing the F5 key.
4. Try a Drag procedure with the Listview control set to lvwIcon or lvwSmallIcon. Note that the mouse pointer is stuck within the Listview client area. Change the View property to lvwList or lvwReport and note that the Drag operation works as expected.