Drag

jeg ved ikke om det virker men prøv dette her :
Dim dragbuff As Variant

Private Sub ListView1_Click()
ListView1.SelectedItem
End Sub

Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
dragbuff = ListView1.SelectedItem
Form1.MousePointer = 1
End Sub

Private Sub ListView1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.MousePointer = 0
End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If dragbuff <> \"\" Then
Form1.MousePointer = 5
End If
End Sub


Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Text = dragbuff
dragbuff = \"\"
Form1.MouseIcon = 0
End Sub

Beklager - men kunne ikke bruge svaret

hvad brugte du så ?