Private Sub Copy()
        Dim i As Integer
        Dim myColumn As DataColumn
 
        MyZwTable.Clear()
 
        MyZwTable = myDv.Table.Clone
 
        For i = 0 To myDs.Tables(DataGrid1.CaptionText).Rows.Count() - 1
            If DataGrid1.IsSelected(i) = True Then
                Dim myArray As Array
                myArray = myDv.Table.Rows(i).ItemArray
                DataGrid1.UnSelect(i)
                MyZwTable.Rows.Add(myArray)
            End If
        Next
 
    End Sub
 
    Private Sub Paste()
        Dim i As Integer
        Try
            For i = 0 To MyZwTable.Rows.Count - 1
                Dim myArray As Array
                myArray = MyZwTable.Rows(i).ItemArray
                myDs.Tables(DataGrid1.CaptionText).Rows.Add(myArray)
            Next
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Info")
        End Try
    End Sub