Public Class Form1
    Inherits System.Windows.Forms.Form
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.ListView1.AllowDrop = True
        Me.ListView1.View = View.List
        For a As Integer = 0 To 10
            Me.ListView1.Items.Add("ListViewEintrag: " + a.ToString)
        Next
    End Sub
    Private Sub ListView1_DragEnter(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) Handles ListView1.DragEnter
        e.Effect = DragDropEffects.Copy
    End Sub
    Private Sub ListView1_ItemDrag(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.ItemDragEventArgs) Handles ListView1.ItemDrag
        Dim item As String = CType(e.Item, ListViewItem).Text
        Me.ListView1.DoDragDrop(item, DragDropEffects.Copy)
    End Sub
    Private Sub ListView1_DragOver(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) Handles ListView1.DragOver
        Me.ListView1.SelectedItems.Clear()
        If Not Me.ListView1.GetItemAt(Me.PointToClient(Me.MousePosition).X, _
          Me.PointToClient(Me.MousePosition).Y) Is Nothing Then
            Me.ListView1.Items.Item(Me.ListView1.GetItemAt(Me.PointToClient( _
            Me.MousePosition).X, Me.PointToClient(Me.MousePosition).Y - _
            15).Index).Focused = True
            Me.ListView1.Items.Item(Me.ListView1.GetItemAt(Me.PointToClient( _
            Me.MousePosition).X, Me.PointToClient(Me.MousePosition).Y - _
            15).Index).Selected = True
        End If
    End Sub
    Private Sub ListView1_DragDrop(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) Handles ListView1.DragDrop
        Dim item As String = e.Data.GetData(GetType(String)).ToString
        Dim idx As Integer = Me.ListView1.SelectedItems(0).Index
        Me.ListView1.Items.Insert(idx + 1, New ListViewItem(item))
    End Sub
End Class