Option Explicit
Dim bDrag As Boolean
 
Private Sub Dir1_Click()
  If Not bDrag Then Debug.Print "Click"
End Sub
 
Private Sub Dir1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
  If Button And Not bDrag Then
    bDrag = True
    Dir1.Drag vbBeginDrag
    bDrag = False
  End If
End Sub
 
Private Sub Form_Load()
  Dir1.DragMode = vbManual
End Sub
 
Private Sub ListView1_DragDrop(Source As Control, X As Single, Y As Single)
  If Source.Name = "Dir1" Then
    MsgBox Dir1.List(Dir1.ListIndex)
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de