Option Explicit
 
Dim li As ListItem
Dim bDrag As Boolean
 
Private Sub Form_Load()
    Dim ch As ColumnHeader
 
    Set ch = lvw.ColumnHeaders.Add(, , "XXXXXXXXXXXXXXXXXXX")
    Set li = lvw.ListItems.Add(, , "bbbbbbbbbbbbbbbbb")
End Sub
 
Private Sub lvw_MouseDown(Button As Integer, Shift As Integer, x As Single, y _
  As Single)
    bDrag = True
End Sub
 
Private Sub lvw_MouseMove(Button As Integer, Shift As Integer, x As Single, y _
  As Single)
    If Not bDrag Then Exit Sub
 
    Set li = lvw.HitTest(x, y)
 
    If li Is Nothing Then
        Exit Sub
    Else
        lvw.OLEDrag
    End If
 
    Set li = Nothing
End Sub
 
Private Sub lvw_MouseUp(Button As Integer, Shift As Integer, x As Single, y As _
  Single)
    bDrag = False
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1