Drag and drop from ListView and double click attempt

[Lloyd Sheen]

I am trying to do two things from a listview.

First is on a double click to perform an action on the object which was
double clicked. FullRowSelect is set to true for the Listview. Code for the
doubleClick event is:

Private Sub SongList_Double Click(ByVal sender As Object, ByVal e As
System.EventArg s) Handles SongList.Double Click
If SongList.Select edItems.Count = 0 Then
Exit Sub
End If
Dim ps As String = y + "\" + SongList.Select edItems(0).Text
StartSong(ps)
End Sub

I also need to use the Listview as a source for DragDrop. To do this I have
to monitor when the mouse button is down so that the mouseMove event knows
what to do. The code for this is:

Private Sub SongList_MouseD own(ByVal sender As Object, ByVal e As
System.Windows. Forms.MouseEven tArgs) Handles SongList.MouseD own
_MouseDown = True
_MouseX = e.X
_MouseY = e.Y
End Sub

The mouseMove code is:

Private Sub SongList_MouseM ove(ByVal sender As Object, ByVal e As
System.Windows. Forms.MouseEven tArgs) Handles SongList.MouseM ove
If _MouseDown Then
If Math.Abs(_Mouse X - e.X) > 5 Or Math.Abs(_Mouse Y - e.Y) > 5 Then
Exit Sub
End If
Dim xx As DataObject = New DataObject
Dim yy As ArrayList = New ArrayList
For Each li As ListViewItem In SongList.Select edItems
yy.Add(y + "\" + li.Text)
Next
Dim zz As Array = yy.ToArray
xx.SetData("Fil eDrop", zz)
Try
SongList.DoDrag Drop(xx, DragDropEffects .All)
_MouseDown = False
Catch ex As Exception
Dim zzz As Integer = 1
End Try
End If
End Sub

The problem is that the doubleClick event does not get called if I use the
MouseDown code. Commenting out the mouseDown code will allow the
doubleClick.

Any ideas?