Una forma:
Código:
Private Sub grdDataGrid_HeadClick(ByVal ColIndex As Integer)
Dim Datos As String
For i = 0 To grdDataGrid.ApproxCount - 1
Datos = CStr(Datos & grdDataGrid.Columns(ColIndex).CellValue(grdDataGrid.GetBookmark(i)) & vbNewLine)
DoEvents
Next
Clipboard.Clear
Clipboard.SetText Datos
End Sub
donde grdDataGrid es el nombre del data. Deberias verificar que el boton presionado es el derecho : vbrightbutton
..salu2
------------