The following VB sample copies the selected cells to the clipboard, if the FullRowSelect property is exRectSel:

Private Sub G2antt1_SelectionChanged()
    Dim strData As String
    With G2antt1
        Dim i As Long, h As HITEM
        For i = 0 To .Items.SelectCount - 1
            h = .Items.SelectedItem(i)
            Dim c As Column
            For Each c In .Columns
                If (c.Selected) Then
                    strData = strData + .Items.CellCaption(h, c.Index) + vbTab
                End If
            Next
            strData = strData + vbCrLf
        Next
    End With
    Clipboard.Clear
    Clipboard.SetText strData
End Sub

The following C++ sample copies the selected cells to the clipboard, if the FullRowSelect property is exRectSel:

#include "Column.h"
#include "Columns.h"
#include "Items.h"
void OnSelectionChangedG2antt1() 
{
	CString strData;
	CColumns cols = m_g2antt.GetColumns();
	CItems items = m_g2antt.GetItems();
	for ( long i = 0; i < items.GetSelectCount(); i++ )
	{
		COleVariant vtItem( items.GetSelectedItem( i ) );
		for ( long j = 0; j < cols.GetCount(); j++ )
		{
			COleVariant vtColumn( j );
			if ( cols.GetItem( vtColumn ).GetSelected() )
				strData += items.GetCellCaption(vtItem, vtColumn ) + "\t";
		}
		strData += "\r\n";
	}	
	if ( OpenClipboard() )
	{
		EmptyClipboard();
		HGLOBAL hGlobal = GlobalAlloc( GMEM_MOVEABLE | GMEM_DDESHARE, strData.GetLength() );
		CopyMemory( GlobalLock( hGlobal ), strData.operator LPCTSTR(), strData.GetLength() );
		GlobalUnlock( hGlobal );
		SetClipboardData( CF_TEXT, hGlobal );
		CloseClipboard();
	}
}

The following VB.NET sample copies the selected cells to the clipboard, if the FullRowSelect property is exRectSel:

Private Sub AxG2antt1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles AxG2antt1.SelectionChanged
    Dim strData As String = ""
    With AxG2antt1
        Dim i As Integer, h As Integer, j As Integer
        For i = 0 To .Items.SelectCount - 1
            h = .Items.SelectedItem(i)
            For j = 0 To .Columns.Count - 1
                Dim c As EXG2ANTTLib.Column = .Columns(j)
                If (c.Selected) Then
                    strData = strData + .Items.CellCaption(h, c.Index) + vbTab
                End If
            Next
            strData = strData + vbCrLf
        Next
    End With
    Clipboard.Clear()
    Clipboard.SetText(strData)
End Sub

The following C# sample copies the selected cells to the clipboard, if the FullRowSelect property is exRectSel:

private void axG2antt1_SelectionChanged(object sender, System.EventArgs e)
{
	string strData = "";
	for (int i = 0; i < axG2antt1.Items.SelectCount; i++)
	{
		for ( int j = 0; j < axG2antt1.Columns.Count; j++ )
			if (axG2antt1.Columns[j].Selected)
			{
				string cellData = axG2antt1.Items.get_CellCaption(axG2antt1.Items.get_SelectedItem(i), j);
				strData += cellData + "\t";
			}
		strData += "\r\n";
	}
	Clipboard.Clear();
	Clipboard.SetText(strData);
}

The following VFP sample copies the selected cells to the clipboard, if the FullRowSelect property is exRectSel ( SelectionChanged event ):

*** ActiveX Control Event ***

with thisform.G2antt1.Items
	local strData, i, j, cols
	strData = ""
	cols = thisform.G2antt1.Columns
	for i = 0 to .SelectCount - 1
		.DefaultItem = .SelectedItem( i )
		for j = 0 to cols.Count - 1
			if ( cols.Item(j).Selected )
				strData = strData + .CellCaption(0,j) + chr(9)
			endif
		next
		strData = strData + chr(13) + chr(10)
	next
	_CLIPTEXT = strData
endwith