Drag & Drop di righe fra datagridview

Volevo copiare righe fra datagridview diverse tramite drag & drop

Con un record solo riesco, ma non capisco come modificare il codice per copiare più righe

Questa e la sub che copia i record dalla dgv di partenza. Per una sola riga avevo SelectedRows(0)

Private Sub dgvRecordJOB_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles dgvRecordJOB.MouseDown
    If Not e.Button = MouseButtons.Right Then Exit Sub
    If Me.dgvRecordJOB.SelectedRows.Count = 0 Then Exit Sub
    Me.dgvRecordJOB.DoDragDrop(Me.dgvRecordJOB.SelectedRows, DragDropEffects.All)
End Sub

Questo è il resto del codice

Private Sub dgvComposition_DragEnter(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles dgvComposition.DragEnter
    Try
        If DirectCast(sender, DataGridView).DataSource Is Nothing Then
            e.Effect = DragDropEffects.None
        Else
            e.Effect = DragDropEffects.Copy
        End If
    Catch ex As Exception
        MessageBox.Show(ex.Message, "Message", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
End Sub

Private Sub dgvComposition_DragDrop(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles dgvComposition.DragDrop
    Try
        Dim r As DataGridViewRow = e.Data.GetData(GetType(DataGridViewRow))
        addCODE(cboProduct.Text, r.Cells(1).Value.ToString, "0")
        loadStructure(cboProduct.Text)

    Catch ex As Exception
        MessageBox.Show(ex.Message, "Message", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
End Sub

Non capisco come modificare la riga
Dim r As DataGridViewRow = e.Data.GetData(GetType(DataGridViewRow))

Ho provato con
Dim r() As DataGridViewRow = e.Data.GetData(GetType(DataGridViewRow))

Ma e.data.getdata mi ritorna sempre nothing