Private Sub dgv_Folders_DragDrop(sender As Object, e As DragEventArgs) _
      Handles dgv_Folders.DragDrop
        If e.Data.GetDataPresent(DataFormats.FileDrop, True) = True Then
 
            Files_Kopieren()
 
            Dim DGRow As DataGridViewRow = e.Data.GetData(GetType( _
              DataGridViewRow)) ' Falsch!!!
 
            MsgBox(dgv_Folders.Rows(DGRow.Index).Cells(0).Value) ' Ergibt 
            ' Null-Value - Fehler
 
            If DGRow.Index > -1 Then
                AuswählenOrdner("", DGRow.Index)
                ausschneidenFlag = True ' Löscht nach dem erfolgreichen 
                ' Einfügen die Quelldateien
                Files_Einfügen()
            End if
 
        end if
    end sub

    Private Sub trv_Folders_DragEnter(sender As Object, e As DragEventArgs) _
      Handles trv_Folders.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            'There Is File - Allow copy.
            e.Effect = DragDropEffects.Copy
        Else
            'There Is no file - Prohibit drop.
            e.Effect = DragDropEffects.None
        End If
    End Sub
 
    Private Sub trv_Folders_DragDrop(sender As Object, e As DragEventArgs) _
      Handles trv_Folders.DragDrop
        If e.Data.GetDataPresent(DataFormats.FileDrop, True) = True Then
 
            Dim p As Point = trv_Folders.PointToClient(New Point(e.X, e.Y)) ' 
            ' so klappt es
            Dim dragIndex As TreeNode = trv_Folders.HitTest(p.X, p.Y).Node
 
            If dragIndex IsNot Nothing Then
                objekteEntladen()
                Objekt_Kopieren()
                trv_Folders.SelectedNode = dragIndex
                ordnerPfad = trv_Folders.SelectedNode.FullPath
                auswahl_Ordner(ordnerPfad, My.Settings.Programm_Expertenansicht)
                ausschneidenFlag = True ' Löscht nach dem erfolgreichen 
                ' Einfügen die Quelldateien
                Objekt_Einfügen()
            End If
        End If
    End Sub

    Private Sub dgv_Folders_DragEnter(sender As Object, e As DragEventArgs) _
      Handles dgv_Folders.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.Copy
        Else
            e.Effect = DragDropEffects.None
        End If
    End Sub
 
    Private Sub dgv_Folders_DragDrop(sender As Object, e As DragEventArgs) _
      Handles dgv_Folders.DragDrop
 
        If e.Data.GetDataPresent(DataFormats.FileDrop, True) = True Then
 
            Dim p As Point = dgv_Folders.PointToClient(New Point(e.X, e.Y)) ' 
            ' So klappt es
            Dim dragIndex = dgv_Folders.HitTest(p.X, p.Y).RowIndex
 
            If dragIndex - 1 Then
                objekteEntladen()
                Objekt_Kopieren()
                ordnerPfad = IO.Path.Combine(aktivesArchivPfad, _
                  dgv_Folders.Rows(dragIndex).Cells(0).Value)
                auswahl_Ordner(ordnerPfad, My.Settings.Programm_Expertenansicht)
                ausschneidenFlag = True ' Löscht nach dem erfolgreichen 
                ' Einfügen die Quelldateien
                Objekt_Einfügen()
            End If
        End If
    End Sub

Dim dragIndex As TreeNode = trv_Folders.GetNodeAt(e.X, e.Y)