複数のアイテムにDragDrop

    Public Function ExteJudge(ByVal FN As String) As Boolean '拡張子の種類、有無を判別
        If System.IO.Path.HasExtension(FN) = False Then Return True '拡張子ナシの場合
        Dim Extes() As String = {".ai", ".eps"}
        Dim Exte As String = String.Empty
        For Each Exte In Extes
            If Exte = System.IO.Path.GetExtension(FN) Then
                Return True
            End If
        Next
        Return False
    End Function

    Private Sub DragEnter_(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragEnter, ListBox2.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then 'コントロール内にドラッグされたとき実行される
            e.Effect = DragDropEffects.Copy 'ドラッグされたデータ形式を調べ、ファイルのときはコピーとする
        Else
            e.Effect = DragDropEffects.None 'ファイル以外は受け付けない
        End If
    End Sub

    Private Sub DragDrop_(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragDrop, ListBox2.DragDrop
        Dim obj As ListBox = CType(sender, ListBox) 'ドロップされたオブジェクトがobjに入る＊＊＊
        Dim FileNames As String() = CType(e.Data.GetData(DataFormats.FileDrop, False), String())
        Dim files As String()
        For Each FName As String In FileNames 'フルパスがファイルかフォルダか判別する
            If GetAttr(FName) = FileAttribute.Directory Then 'フォルダなら
                files = System.IO.Directory.GetFiles(FName)
                For Each FileName As String In files
                    If ExteJudge(FileName) = 1 Then
                        ContAdd(FileName) '重複のしないようにリストに追加
                    ElseIf ExteJudge(FileName) = 2 Then
                        CheckBox4.Checked = True : TextBox1.Text = Dir(FileName) : ExcelFilePath = FileName
                    End If
                Next
            Else 'ファイルなら
                If ExteJudge(FName) = 1 Then
                    ContAdd(FName) '重複のしないようにリストに追加
                ElseIf ExteJudge(FName) = 2 Then
                    CheckBox4.Checked = True : TextBox1.Text = Dir(FName) : ExcelFilePath = FName
                End If
            End If
        Next
        If Fs.Count = 0 Then
            Console.WriteLine("適切なファイルが選択されていません")
            Exit Sub
        Else
            Fs.Sort()
            ListBox1.Items.Clear()
            For Each aaa As String In Fs
                ListBox1.Items.Add(Dir(aaa))
            Next
        End If
    End Sub