http://devcenter.infragistics.com/Support/KnowledgeBaseArticle.aspx?ArticleID=9695

Your code would look as follows:

Private Sub UltraGrid1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles UltraGrid1.KeyDown

        If e.Modifiers = Keys.Control Then

            ''''''''''''''''''''''''
            ''  Copy/Paste Logic  ''
            ''''''''''''''''''''''''
            Select Case e.KeyCode

                Case Keys.C

                    '''''''''''
                    '' Copy  ''
                    '''''''''''
                    copieSelectedRowCount = UltraGrid1.Selected.Rows.Count

                Case Keys.V
                    Me.ProcessData()

...

End Sub

Private Sub ProcessData()
        Dim theColIndex As Integer = 0 'This is the Current Active Column Index
        Dim theColCount As Integer = 0 'This is the count of columns in the Grid
        Dim theRowIndex As Integer = 0 'This is the row index that we are on

        Dim o As DataObject = DirectCast(Clipboard.GetDataObject(), DataObject)

        If (Not o.GetDataPresent("Text")) Then Return 'Make sure we have Clipboard text

        Dim theClipboardText As String = o.GetData("Text", True).ToString()

        If (theClipboardText.Length = 0) Then Return

        Dim theGridCell As UltraGridCell = Me.ultraGrid1.ActiveCell 'Attempt to get the current active cell

        'Here we set the index of the current active cell where it is located in the column collection
        If Not theGridCell Is Nothing Then 'VB Workaround
            theColIndex = theGridCell.Column.Header.VisiblePosition
        End If

        'Here we get the count of WinGrid columns
        theColCount = Me.ultraGrid1.DisplayLayout.Bands(0).Columns.Count

        'Here we initialize the Row Index (set to 0 if there are none) as well as the Row Count
        'Dim theRowIndex As Integer = IIf(Not theGridCell Is Nothing, theGridCell.Row.Index, 0)

        If Not theGridCell Is Nothing Then 'VB Workaround
            theRowIndex = theGridCell.Row.Index
        End If

        Dim theRowCount As Integer = Me.ultraGrid1.Rows.Count

        'Clean up the Clipboard text
        theClipboardText = theClipboardText.Replace(vbLf, "")

        'Remove that last "\n" from the string
        If (theClipboardText.EndsWith(vbCr)) Then
            theClipboardText = theClipboardText.Substring(0, theClipboardText.LastIndexOf(vbCr))
        End If

        'Split the string into a "Rows" collection
        Dim theDataRows As String() = theClipboardText.Split(vbCr.ToCharArray())

        Dim theDataFields As String()

        If (theDataRows.Length = 0) Then Return

        'Split the first "Row" into a "Fields" collection just so we
        'can identify if we need to add more columns
        theDataFields = theDataRows(0).Split(vbTab.ToCharArray())

        'add more columns if needed:

        'f the current column that we are on's Index minus the total columns
        'is less than the amount of fields that are in the clipboard,
        '/then we need to add as many more columns so that when we paste
        'the content, there will be just the correct amount of columns to
        'accept the text.
        If (theDataFields.Length > Math.Abs(theColIndex - theColCount)) Then

            Dim colsToAdd As Integer = theDataFields.Length - Math.Abs(theColIndex - theColCount)

            For i As Integer = 0 To colsToAdd - 1
                'Keep on adding columns to the data model until we have enough
                Me.UltraDataSource1.Band.Columns.Add(Guid.NewGuid().ToString())
            Next
        End If

        'add more rows if needed:

        'if the current row that we are on's index minus the total row count
        'is less than the amount of rows we are trying to paste, then we
        'need to add as many new blank rows to accomodate the ones being pasted.
        If (theDataRows.Length > Math.Abs(theRowIndex - Me.ultraGrid1.Rows.Count)) Then

            Dim rowsToAdd As Integer = theDataRows.Length - Math.Abs(theRowIndex - Me.ultraGrid1.Rows.Count)

            For i As Integer = 0 To rowsToAdd - 1
                'keep on adding rows through the Grid until we have enough:
                Me.ultraGrid1.DisplayLayout.Bands(0).AddNew()
            Next

        End If

        'Very important: we need to activate the cell that we originally
        'clicked on so that the paste operation (internal to the Grid) will
        'know how and where to position the content and start off on
        'the right cell.
        Me.ultraGrid1.Rows(theRowIndex).Cells(theColIndex).Activate()

    End Sub

Magued

Hi Kevin,

Please give me more information as to what you have set for the CellClickAction, how do you do copy and paste is it bu using ctr-c, ctr -v. I have set the activation to active only and I am able to copy and paste using ctr-c-> ctr-v with no problems.

Magued