Dim DragItems As Windows.Forms.ListView.SelectedListViewItemCollection
 
    Private Sub On_Load() Handles Me.Load
        ListView1.AllowDrop = True
    End Sub
 
    Private Sub ListView1_ItemDrag(ByVal sender As Object, ByVal e As _
      ItemDragEventArgs) Handles ListView1.ItemDrag
        DragItems = ListView1.SelectedItems
        DoDragDrop(DragItems, DragDropEffects.All)
    End Sub
 
    Private Sub ListView1_DragOver(ByVal sender As Object, ByVal e As _
      DragEventArgs) Handles ListView1.DragOver
        Dim action As String = ""
        If ((e.KeyState And 32) = 32 And _
            (e.AllowedEffect And DragDropEffects.Link) = DragDropEffects.Link) _
            Then
            e.Effect = DragDropEffects.Link ' ALT
            action = "Link"
        ElseIf ((e.KeyState And 4) = 4 And _
            (e.AllowedEffect And DragDropEffects.Move) = DragDropEffects.Move) _
            Then
            e.Effect = DragDropEffects.Move ' SHIFT
            action = "Move"
        ElseIf ((e.KeyState And 8) = 8 And _
            (e.AllowedEffect And DragDropEffects.Copy) = DragDropEffects.Copy) _
            Then
            e.Effect = DragDropEffects.Copy ' CTL
            action = "Copy"
        ElseIf ((e.AllowedEffect And DragDropEffects.Move) = _
          DragDropEffects.Move) Then
            e.Effect = DragDropEffects.Move ' no key
            action = "Move"
        Else
            e.Effect = DragDropEffects.None
            action = "Not allowed"
        End If
 
        Dim p As System.Drawing.Point
        p.X = e.X
        p.Y = e.Y
        p = ListView1.PointToClient(p)
        Dim dropToItem As ListViewItem = ListView1.GetItemAt(p.X, p.Y)
        Dim items As String = ""
        For Each item As Windows.Forms.ListViewItem In DragItems
            items &= item.Text & ", "
        Next
        Form1.StatusMSG(action & ": " & items & " To: " & dropToItem.Text)
    End Sub
 
    Private Sub ListView1_DragDrop(ByVal sender As Object, ByVal e As _
      DragEventArgs) Handles ListView1.DragDrop
        ...
    End Sub