Private Sub Form1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Form1.DragDrop
 
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
 
            Dim Objetos As String() = e.Data.GetData(DataFormats.FileDrop)
 
       For Each Archivo As String In Objetos
            MessageBox.Show(Archivo)
       Next
 
        End If
 
    End Sub
 
    Private Sub Form1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Form1.DragEnter
 
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.All
        End If
 
    End Sub