Drag and drop в другом потоке

 Private Sub Form1_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragDrop
 
        Dim files() As String = e.Data.GetData(DataFormats.FileDrop)
        For Each path In files
 
 
            Dim reader As IO.StreamReader = Nothing
            Try
 
                If FldrSize(path) / (1024 * 1024 * 1024) < My.Computer.FileSystem.GetDriveInfo(path.Remove(2)).TotalFreeSpace / (1024 * 1024 * 1024) Then
 
 
                    DataGridView1.Rows.Add(path, FldrSize(path) / (1024 * 1024 * 1024))
 
                Else
 
                    ListBox1.Items.Add(path)
                End If
 
            Finally
                If Not reader Is Nothing Then
                    reader.Close()
                End If
            End Try
        Next
 
    End Sub

 Public Function FldrSize(ByVal dPath As String)
        Dim size As Long = 0
        For Each foundFile As String In My.Computer.FileSystem.GetFiles(dPath, FileIO.SearchOption.SearchAllSubDirectories, "*.*")
            Dim fInfo As New FileInfo(foundFile)
            size += fInfo.Length
        Next
        Return size
    End Function