Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        ListView1.Columns.Add("Quelle")
        ListView1.Items.Add("test")
 
    End Sub
 
    Private Sub ListView1_DragEnter(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) Handles ListView1.DragEnter
 
        e.Effect = DragDropEffects.All
 
    End Sub
 
End Class