Private Sub LIST_DEST_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal y As Single)
Dim MyDataObject As DataObject
If Button = 1 Then
idx = LIST_DEST.ListIndex
If idx > -1 Then
Set MyDataObject = New DataObject
Dim Effect As Integer
MyDataObject.SetText LIST_DEST.Value
Effect = MyDataObject.StartDrag
End If
End If
End Sub