''To copy Row
    Private Sub CopyButton_Click(sender As System.Object, e As _
      System.EventArgs) Handles copyButton.Click
        CopyRowIndex = AblagedetailsDataGridView.CurrentRow.Index
    End Sub

 ''To Paste Row
    Private Sub PasteButton_Click(sender As System.Object, e As _
      System.EventArgs) Handles pasteButton.Click
        PasteRowIndex = AblagedetailsDataGridView.CurrentRow.Index
        AblagedetailsDataGridView.Rows.Add(CopyRowIndex)
 
 
    End Sub

Public Class frmImportRow
 
    Dim dt As DataTable
    Dim dgv As New DataGridView With 
       {.Parent = Me, .Size = New Drawing.Size(300, 300)}
 
    Private Sub frmImportRow_Load(sender As Object, e As EventArgs) Handles _
      MyBase.Load
 
        dt = New DataTable
        With dt.Columns
            .Add("Int", GetType(Integer))
            .Add("Str", GetType(String))
            .Add("Date", GetType(Date))
        End With
 
        With dt.Rows
            .Add(1, "eins", Now)
        End With
 
        'Methode: per Itemarray clonen
        Dim row = dt.NewRow()
        row.ItemArray = DirectCast(dt.Rows(0).ItemArray.Clone, Object())
        dt.Rows.Add(row)
 
        'Methode: Zeile importieren
        dt.ImportRow(dt.Rows(1))
 
        'Methode: einzelne Spaltenwerte übernehmen
        Dim row3 As DataRow = dt.NewRow
        row3("Int") = CInt(dt.Rows(2)(0))
        row3("Date") = CDate(dt.Rows(2)("Date"))
        dt.Rows.Add(row3)
 
 
        dgv.DataSource = dt
    End Sub
End Class