Private Sub ListView1_DragDrop(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.DragEventArgs) Handles ListView1.DragDrop
		Dim p As Point = ListView1.PointToClient(New Point(e.X, e.Y)) _
'Bildschirmkoordinaten in ClientKoordinaten umrechnen
		Dim lv As ListViewItem = ListView1.GetItemAt(p.X, p.Y)
		lv.Text = e.Data.GetData(DataFormats.StringFormat, True)
	End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus