VB.NET 拖放效果

Private Sub form1_DragEnter(sender As Object, e As DragEventArgs) Handles form1.DragEnter
        e.Effect = DragDropEffects.Link 

    End Sub

Private Sub form1_DragDrop1(sender As Object, e As DragEventArgs) Handles form1.DragDrop

            For Each ws As String In e.Data.GetData(DataFormats.FileDrop)

            CheckedListBox1.Items.Add(ws)

            next

            End Sub