Dim StartX, StartY As Single
 
Private Sub Form_Load()
ListView1.ListItems.Add(, , "Test").SubItems(1) = "SubItem"
End Sub
 
Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As _
  Single, y As Single)
StartX = x
StartY = y
End Sub
 
Private Sub ListView1_MouseMove(Button As Integer, Shift As Integer, x As _
  Single, y As Single)
If Button = vbLeftButton Then
    If Abs(StartX - x) > 2 And Abs(StartY - y) > 2 Then
        ListView1.OLEDrag
    End If
End If
End Sub
 
Private Sub ListView1_OLESetData(Data As MSComctlLib.DataObject, DataFormat As _
  Integer)
Data.SetData ListView1.SelectedItem.SubItems(1), vbCFText
End Sub
 
Private Sub ListView1_OLEStartDrag(Data As MSComctlLib.DataObject, _
  AllowedEffects As Long)
If Not ListView1.SelectedItem Is Nothing Then
    AllowedEffects = vbDropEffectCopy
    Data.SetData , vbCFText
End If
End Sub

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.